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FROM ONE TO EIGHT SELECTED TRANSPORTS. All AvAI^ABlE CORE STORAGE 
JR TO 2$k Is USEO IN OROER to EXECUTE the MAXIMUM NUMBER of DA T A 
TRANSFERS possible. 


to EXECUTE 


MAXIMUM NUMBER OF DA t A 


all execution times quoted are typical of a u bc system. 

EXECUTION TIMES IN CTh£R PDP -11 SYSTEMS wlLL vAR 


REQUIREMENTS 


EQUIPMENT 


A. PDP-11 SY'STEM^iMX CORE . 

8 T?i? 3 qStA% C CONTROL AND AT LEAST ONE TJSE DUAL transport. 


-►C TELETYPE AND TCil CONTROL MUST HAVE TrtEIR 

sM‘3?iS£{ 


*D PERIPHERAL 

Besses. 


>vE STANDARD 


STORAGE 


s'Io'spb 


AT IONS OQOOOC THROUGH 0IQ12Q. ALL REMAINING TORE S T ORA„£ 


LOADING PROCEDURE 


-Mis PROGRAM’S OBOE;- -APE IS punched IN ABSOLUTE FORMA- 
-m€ A6S LOADER IS -SEC -C load t h£ program 
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TESTED WITH STANDARD FORMAT DEC TAPE, SE" 


WALL SWITCH TO Of r 


THt PROGRAM IDENTIFIES ITSELF, TYPE* 

fCRFORfl SETUP (STEPS A AND 0), “ “ 

TO INDICATE THE UNITS TO|£T 


iTRUCTIQNS, AND HAL ? S 


IF ANY NORMAL 


rs TO & T( 
\ OPTIONS * 
» DOOOOC , t 


THIS PROGRAM’S SR OPTIONS ARE 

Pi 5 : i BVWScB 

SAI 3 * ! INHIBIT ff 

SRI I * i INHIBIT iteration 

wn , con 

SR. THROUGH SRQ - ^ JN8ER C 


fss CONT, 


intout 


l na i nyv i * uns. w 
a TOCS 6 THROUGH 

Isffiio S* Spt IONS 
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SECTION 7.1 GIVES A COMPLETE EXPLANATION OF SR OPTIONS, 

at 6 the 0 ^? 1 o^^icH ^aI^th ? 1 Teletype selw rings once, and 
the character *•- is typed. 

REFER TO SECTION fa. 2 IF ERROR PRINTOUTS OCCUR. 


EXECUTION TIME: 

A. ONE NORMAL error FREE PASS ta*es approximately 1 HOUR 
8 . ONE SINGLE ITERATION PASS SRli*l 3 TAt'ES A 80 UT S MINUSES. 


RESTART PROCEDURE 


TO REST, ART THE PROGRAM WITHOUT GENERATING Tm£ INITIAL PRINT 
PROCEED AS FOLLOWS: £ TRANSPORTS UNDER f E$T REMAIN *m£ SAME 


BED IN S’EPS A AND 9 OF USE PROCEDURE 
ONS. 


STEP h Of USE PROCEDURE 


O 4 



Htv SON-ERROR PRINTOUTS ARE NORMAl PRINTOUTS. INSTRUCTION. 
TITLE, and user ERROR PRINTOUTS ARE normal PRINTOUTS. 

ERRORS 


ERRORS ARE REPORTED IN ThIS PROGRAM 0v T ME FOLLOWING METHODS 

A. UNCONDITIONAL ERROR HALTS. OR 

B. ERROR PRINTOUT POL.. OWED 8 v OPTIONAL £R»SR hAl”. 
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UNCONDITIONAL ERROR HAl’S 


an unconditional error halt *i w l occur at the aooresses listed 
be^ow ir through hardware or software failjre. program control 
IS TRANSFERRED to an UNEXPECTED area BETWEEN Doooqg and OOCl^fc. 

RVlg^AREA 

rve'd instruction trap 
G TRAP 



FAIL TRAP 

xoirs 


SYSTEM SOFTWARE AND INTERRUPT VECTOR AREA, 
AND TTY VECTORS. 


H . 

s 


FOR TCI l 

FIND OUT WHERE THE PROGRAM WAS AT ThC TIME Th£ FAILURE OCCURRED, 

f^^SIWSJ 8 ® «NC EXwrl’ft 

THF DATA S^WN IN THE DATA LIGHTS IS ThC VALUE OF THE PC WHEN 

Iocate T Vnprogr^l?stino The DISPLAYED pc VALUE. 

the INSTRUCTION that IMMEDIATELY PRECEDES Th£ ON£ REFERENCED 
BY THE DISPLAYED PC VAliC IS ThC INSTRUCTION TmA* WAS "WAS DEI NO 
XECUTEO WHEN THE failure OCCURRED. 


£ 


AN unconditional error halt FAILURE IS an ABNORMAL CONDITION 
INDICATING a hardware failure. 0« MOST UNLIKELY, a program 
this program Assures that the processor is in o^era t ing co< 

ORDER TO PERFORM I* ^ 


TSTS 


FAIwUPE 

ondi 'Ton 
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printouts 


ERROR PRINTOUT ARE GENERATED 3> THE w £RRN'* SUBROUTINE. Th£ "ERRN" SUBR: 
IS CALLED 0V AN “ERRORfT STATEMENT, AN ERROR PRINTOUT LOOKS AS FOLLOWS ■ 


* <X* PC DVYYY> ICNT ZZZZ . 
XFRCNT XXXKXX WAOOR YYYYYY R. 
JP *0 2 AOOI’IONAL LINES OF £ 


IT M 


ZZZ FPC CVVVVV 
DONATION, 


WHERE 


IS ’HE NUMBER OP PAlLlNu ROUTINE GC t A. 
v IS ’HE AOORESS OF ERROR CAlw, 


'he iteration count at tine of ta: 


■PRCN’ YXXXXX WAOOR yyvyyy ANC RAGD» ZZZ2ZZ INDICATE t H £ paRAH£’£R« 
N JSf A’ ’I HE of FAILURE 

pc Qvvv'W IS typed WHEN the ERROR CALL IS GENERATED 8'* A 

SUBROUTINE. AND TT IS NECESSARY T* INDICATE WHERE 
thF SUBROUtlNE WAS CALLED FROM. 


AF T £R *H£ PRINTOUT IS COMPLETED, THE PROGRAM Wli 
COMMON ERROR HA.* At lOC 003S50 IF SRiS IS SE’ 

WHEN AN ERROR PRINTOUT OCCURS: 


M. .00* UP the AOORESS REFERENCED 8> PC OVYVYY IN th£ LISTING. 

B m* sr we^ 00 *- bnc 

C. AT THE BEGINNING of the test routine A DCSCRTPTION of the TES' 
WILL BE FOUND. 


UP TO 8 uINES OF ADDITIONAL ERROR INFORMATION NAY APPEAR ON An ERROR 

Printout, some of th£ items that ha,' appear are : 

A. BLKRO KXXX. BlkRG REPRESENTS ThE INJTIAu &QC* NUMBER USE J WHEN 
AN OPERATION WAS INITIATED. (IN A P OR MORE BLOC* TRANSFER. BL*P* 

represents the initial block number, even though a failure may 

8, *?N T DATA C i^o| D P^IN^uT •^“’HAt FAILED REPRfSENTS ’*£ 

POSITION OP The CORREC ' WORD IN THE wR;t£ BUFFER. AND it is NO’ 


:nts the 


-EhN’ fc DESCRIBE ’h£ WORD'S POST 
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TESTING TCii AT NON-S t ANOARD ADDRESSES AND OR VEC r ORS 


AND 

TO 


THIS PROGRAM can test the TCli AT NON-STANDARD ADDRESSES Af 
VECTORS PROVIDED THOSE ADDRESSES AND VECTORS ARE PROVIDED 4 
THE PROGRAM AS FOLLOWS 

A AFTER LOADING PROGRAM REFER TO PROGRAM LISTING AND CHANGE 

locations goiooM through 001020 to reflect the new tc:i 
ADDRESSES <W 0 VECTORS. 

8. IF THE TELETYPE IS ALSO AT NON STANDARD ADDRESSES. CHANGE 
LOCATIONS 061022 AND 00102 H ALSO. 


PROCEED TO USE THE PROGRAM. OR 


yS , 3M£«WTOAff p T8°Si55g E a«, 8BEc? u ?«fg E T5a? I iSlF® 

your System. OR 


GRAM 

TS 


DUMP OUT ONLY LOCATIONS OClOQM THROUGH Q 01 C 2 H IN A 0 SOLJTE 
FORMAT, AND LOAD IT ALSO AFTER LOADING THE MAIN PROGRAM. 


9 , DESCRIPTION 

THIS PROGRAM IS ORGANIZED INTO "HREE MAIN SEC T IONS : 

A. CONTROL ROUTINE. 

B. TEST ROUTINES. 

: . C OMMON SUBROU 1 1 NE S 

S . CONTROu routine 

T HE .ONTROL ROUTINE ASSUMES CONTROL. WHEN T *E PROGRAM IS S"AC’S: 
IT iAS THE FOLLOWING FUNCTIONS: 

0. CONTROLS SEOUENCE OF TEST PCu"INES, 
e. HONORS AND ACTS ON SR OPTIONS, 

"he CONTROL ROUTINE IS CALLED PROM A T £S" 

’•SCOPE " STATEMENT 


-in 1 


R.„"InE 8 "HE 


:s * t es’ s 
e:. c *; 3 ;-auu- 


J01 


MACYii 3C 1 0*b 31-AUC- 

IH:QQ 

TEST ROUTINES 


9 


the actual TESTING IS PERFORMED 8>' A SET OF TEST ROUTINES ThA t 
ARE NUMBERED SEQUENTIALLY FROM 0 TO 10 i OCTAL 1 ). EACH TEST 
ROUTINE IS PRECEDED By A TEST HEADER THAT IS USED BY THE CONTROL 
ROUTINE IN ORDER TO PROPERLY SEQUENCE THROUGH THE TESTS. THE HE AC 
LOOKS AS FOLLOWS: £ EXAMPLE * 

*»«****«•**•»•* .,*♦#*#•##**##*##•*##«**##*##*##*##*••#****♦#*♦*♦* 

' :3i l?i ;SP§I W&'huTi* £ 

10. .TEST ITERATION COUNT * 

BAGA : SCOPE ENTRY POINT 


’HE FIRST 2 ITEMS ARE SElF EXPLANATORY THE TEST ITERATION COUNT 
: NO I CATES TO TtE CONTROL ROUTINE THE NUM8ER OF TIMES THE TEST 
SHOULD BE PERFORMED BEFORE GOING ON TO THE NEXT ROUTINE. 


THE SCOPE ENTRv pojNT INDICATES TO THE CONTROL ROUTINE THE ADORES' 
IT SHOULD RETURN TO AFTER THE FIRST ITERATION. THE ADDRESS MAv 
NOT NECCESARILY POINT TO THE FIRST INSTRUCTION OF THE TEST. 

COMMON SUBROUTINES 


ALL 5U9R0U T ES NEEDED B* EITHER the CONTROL ROUTINE OR TES’ 
ROUTINES arl uROUPCD together, the most significant subroutine 
IS f HE “ERR* ’ SUBROUTINE, WHICH IS CALLED BY AN “ERRORN** STATEME' 
AND TYPES ’HE ’E£T NUMBER AND PC VALUE WHEN A FAILURE OCCURS. 




; UNASSIGNED TRAP 
;SP OVERFLOW, BUS ERROR TRAP 
; RESERVED INSTRUCTION TRAP 
; TRACE TRAP 
; TRAP TO CALL IO> 

; POWER FAIL TRAP 
; EMT TRAP 

; TRAP TRAP. SIMILAR TO EMT 

ITh .42 ANC HAL r EXCEPT LOC *t ANC Sc 


i 

| 
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.i 


TCS - TC 1 1 
DZTCEO.P 1 

3 

--S 

448 

*4*47* 

HHQ 

H'SC 

45 : 

>*ss 

4 5 m 
*«5S 
458 
ms 7 
-*38 
-*39 
%C 
48 i 
498 
4 83 

404 

485 

Hit 

Mfc,"* 

-98 

-89 

470 


474 
4 7S 
h74 
4 77 

478 

479 
400 
481 

488 
403 

4g4 

48S 

49fc 

407 

406 

489 

490 

491 
49c 

493 

494 

495 
498 
4 97 


L01 


TEST ■ 
31 


Aiiu 

DOS' 


ilACVll 

14:00 


38882b 
000 ','*0 

0X300 

00X40 
00 31 00 
000040 


000003 

300040 


080000 
000000 
000004 
000010 
000014 
000080 
000034 
300030 
000034 
030000 
OlOOGO 
004000 
QGOOOO 
000000 
000400 
001000 
001400 
008000 
0084 30 
003000 
003400 
OX 100 
000000 
000008 
300004 
OOQQOS 
000010 
000018 
0000 14 
00001b 
000001 
000800 
010000 
OOHOOO 
000000 
000003 
000004 
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PUSH*0QS74b 

P0PS>P2*082S2S 

P9TY7*340 

PRTYb*300 

PRTY5*24Q 

PRTY4*?00 

PRTY3-140 

PRTY2-100 

PRTY1=40 

PR7YQ=Q 

BELL=0C7 

tlast=*i 

TRC=3 
1 =40 
Xs-i 

a=b; ns 

B =81114 
c=b;ti3 
V0=0 
VI =4 

V2-10 
V3= 1 4 
V4=20 
.'5=84 

VS =30 
V7=34 

f1AINT=8I Ti 3 
0INH=8IT1£ 

REV=BIT 1 1 
FUD=0 

uo=o 

U1=8IT8 
02*91 T9 

U3=8IT9!BIT8 
04=8 IT 10 
US*9IT10!8IT8 
Ub=9ITiO!BH9 

U7=8IT1Q!BIT9!BIT8 

IE=BI Tb 
SAT =0 

pNun=8in 

R0ATA*BIT8 

RALL=BIT2fBITi 

SST=BIT3 

ARTM=BIT3!BIT1 

A0ATA=BIT3!BIT8 

WALL*BIT3!BIT2!8IT1 

DO*BITO 

UPS*BIT7 

IL0=8IT12 

SELE=BIT11 

EMTX=0 

SAV5S=3 

RST5S=4 
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TCS * 
dzt.e; 


ion 

-.Pi i 
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31 


x, i ' 


sot. 

liie 

SOS 

sio 

Sil 

s*? 

Si 3 

$. H 

S I s 
s;s 

c i ■* 

Z> * ' 

s:e 

Si 9 
Si’O 
Si' 1 
Si'? 
Si’ 3 

s? M 

Si'S 

Sit. 

527 


S?A 
S3u 
S31 
S3? 
S3 3 
S> 
S3S 

sat. 

lie 

sas 

s^o 

S^l 

Sh? 

S~*3 

5*4 

SHS 

SHfo 

547 


S 4<3 

sso 

55 i 
553 


juOu -5 

::o:s? 
000300 
00 1 000 
s:> 

OOlClQ 
QOiC 1? 
COlCiH 

QCUOIS 

00 i 030 
)^033 

)* 024 

00.030 

nri « n 

.4 W-w'HJ 

00103? 

301034 

00 1 035 

00 1 OHO 
001 OH? 
00..0HH 
DO.* QhS 
OOiOSO 
00105? 
0010SH 

obi nt? 

001 ObH 

B 8 iS^ 

00107 ? 

00107H 

001075 
“ 31100 
3110? 
DQiiCN 
001 10b 
001110 
00 1 1 i 2 
C0111H 
001X15 
001 1?0 
001 1?? 
001 1?? 
31 12*4 
31125 
001130 
00113? 
001 13H 
00113b 



?U‘ 
COO; IS? 
OH 0000 



nodo 

000157 

* ~~>o 

1773H? 
177*34* 
17734! 
i??35 
000 ? 1 - 
00030G 

1 77S5H 

1 ”7555 


innng 


wuyu 

00505? 

000003 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

*000000 



000000 

000000 

oooooo 

..300 
3000S 

001730 

002435 

00215? 

002252 

00221? 

002312 

002202 
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M 01 


00105 H 

000575 
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DEupYsTRftP 

• -Hy 

LOGIC 

=52 

40000 

Jn£°° START 
= 1000 

JMP GETROY 

1 773HQ 
177342 
1773HH 
17734 
17755 
3H 
PRTY5 
1 77554 
17^555 
OPEN 
OPEN 
TO 

0°EN 

OPEN 

O p EN 

OPEN 

0 D £N 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

5 

WORD C HA INN 

.WORD SRSETT 
. WORO SVC 3 

. WORO RS03 
. WORO SVOS 
. WORD RS05 
WORD SVOS 5 


TOST: 
TCCM: 
TCWC: 
T C8A : 
•'-qT • 
TCVTR: 

T Cl VL : 
TPS, 

TPB : 

ICTR: 

T -''NT ■ 

K ST ART: 

SCOPTR: 

RTNNO: 

NVTST: 

CURTST; 

TRA' 
TCiflt 
TCSTT 
T I'OTT 
TCWCT 
TC8AT 
B.K'RQ 
BwKRQS: 
UNIT: 
UNI TN: 
UNITS: 

"ONNO; 

TEMP: 

PPC : 

RBFlIM: 

W8FLIM: 

BP SIZE: 

XFRCNT: 

WAOOR : 

RAOOR: 

VF0LKN: 

VRBLKN: 

IStVaB: 


iEC 


1 1 c: 


GO TO S 'ART 0-" PROGRAM. 


BYPASS 

m\ 

TCi 1 
TCI I 

TCi * 

tcii 

TCI 1 
LSP 
ISP 


INITIAL printouts. 

WORD COUNT R£ 


nterrupt V 


TER. 
VECTOR 
PRIORITY 


LEVEL 


INTERRUP 
INTERRUPT 
SR 

XJFFER 

CONTAINS CURRENT ITERATION CCLNT 
CONTAINS ACCUMULATED ITERATION 
CONTAINS STARTING ROUTINE ADDR 
CONTAINS CURRENT SCOPE POINTER 


; POINTER 
; FQTNTER 
; POINTER 
; POINTER 
: POINTER 
; POINTER 
; POINTER 


FOP EHT 

for Err 

C 0R EHT 
FOR EHT 
FOR ENT 
FOR fcflT 
FOR EN T 


CALL SCOPE 

call sreset 
call SAV03 
COL:.. RST03 
vP.i SAvOS 
CALL RSTQS 
CALL SAV05S 


ft 


TC 5 TC i i 
D?T *; p . ; 


n st ■ 

31 


At;*.# 


« 


SSL 


S8- 

S8S 

ft? 

ill 

591 

59c 

593 

594 


"""5? 

CC* 

jr. j 


XUS? 


S~S 
5 r ' 
5 '8 
8-9 

580 

581 
S63 


00 - 81 - 

00 i 81 b 

001880 

00184-8 

aoi 8 N 

‘ U 8 
U 
51 

1183 s * 
5183b 
0 Q 18-0 

00 I 8 H 8 

001844 

00189b 
001850 
00 1858 
00 185 s * 
00185b 


0C3O-3 
3- 
. ?0 
003318 
>0 



gfog 


Sb- 

OOiifc- 

008- '8 

SbS 

OOiibb 

008-15 

Sbfc 

00-170 

001178 

00-35- 

St 7 

00-314 

Sbd 

00117' 

00—53 

St. A 

00; 17b 

00-450 

5*0 
S' 1 

00*808 

00-58- 

505.lt.:: 

578 

00-80- 

DCS 1 t>b 

^ ’ 
S'*. 

*,‘x * ^9^ 

rinCTnn 


0X81? 

X5b5- 



.7> 
JSObO 
b 
,-b 

lb 
bOO 
188 
. . 159 
003b '5 
00378b 
003770 
30-038 
' 9 1 bb 
'*280 
m3b 
♦55b 
_ J48b8 
G03E5- 


MACYll 
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NOl 


at® 

WORD 

WORD 

WORD 


wOR 
WOR 
WORD 
WORD 
WORD 
WORD 
WORD 
W0»0 
WORD 
WORD 
WORD 
A 


WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

AORO 

WORD 

WORD 

AORO 

WORD 

WORD 

WORD 

AORO 

WORD 

WORD 

AORO 


W 5S 

WPS 

ERRN 

OACNVV 

90CNVV 

RNGEN 

I NRNON 

0MOVV 

CHLT 

fTu* T 

s rYcv 

5TC0M 

STATS 

5TPDT 

>tRZ 

nvntr 

SftCMFF 

sr z*>y 

ADA i F 

aQatr 

ROATF 

ROATS 

CAC8M 

XEARR 

aiy.L 

5 A T C A 

DTCXI 

JNfilNN 

GT9IN1 

RfORVV 

SCHORR 

rnCxff 

XFRSTT 


orvfll 

OTCkSS 

RNOFLL 

soorv 


iSSjafS Pit Satt ^ 5S 

i WINTER 
* POINTER 
;PO!nT?p 

?S«3&2 


NT 


pS:nt 

; PQ INTFR 

poJnTlP 

; POINTER 
; °0 |NTlA 

;PO!nt£r 
POINTER 
l^NTFR 
; POINTER 
. OQ 'NTR 

Ip^NtIr 

;POIN t ER 

POlNTp 


FOR ENT 
C QR £*1T 
r 0R cNT 
TOR ?NT 
COR ENT 
COR ?NT 
FOR ENT 

if® 


ENT 

?NT 

ENT 

ENT 

Int 


[Nt?R 
; POINTER 
; POINTER 
;PO!nT?R 

; »o:n 3 |r 

jPOINTP" 
; POINT 
; POINTER 
; PuInTFR 
i POINTER 
; POINT 
; POINT 
; POINT 
;PO!nT 
; POINT 
; POINT 
; POINT 
; POINT 
; POINT 
; POINT 


FOR 
FQR 
FOR 
FOR 

FOR 

c§R ENT 
r QR FNT 
COR £nT 
f 0R ENT 
cor fit 
COR E-NT 
FOR ENT 
FOR FNT 
FOR £NT 
COR EN T 



FOR gm 
FOR £N T 


C-LL 

CALL 

lALL 

CALL 

call 

call 

call 

call 

call 

call 

call 

call 

call 

call 

call 

Call 

call 

all 

ALL 

call 

Call 

Call 

call 

Call 

call 

call 

call 

call 

call 

call 

call 

CALu 

CALL 

CALL 

call 

CALL 

call 

CALl 


V" 

8 


t PE 5 
ERRORN 

OACNV 

800 nv 

RNDNJN 

INRND 

vNAl ' 
£NAL" 

IeIco? 

5TATJS 
STOPDT 
: a K£R$Z 
MINT 
SR CMP 
SRC.’P 
ATAF 
A TAR 
ROA^AF 
ROA'AR 

ck'acsa 

CLEAR 

BIMIi. 

DATCMK 

datui 

ineIn 

ge^8n; 

RNORTV 
SEl.O* v 
RTiOXFR 
XFRSE T 
RN0F8*> 
RnORBk 
ORVFIL 
Oa t c>s 
RNOFIL 
SEODRv 



f 


TC5 - T 

C- . "EST 

s 

NACYil 

DZT ED. 
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14:08 

loo 

001253 
55 1254 

1 540*0 
^3 

3C1000 

002125 


OCl2“5 

3gi5oo 


1X30042 

a33 

bCT* 

001304 

001524 



GOlJUb 
CO 131 4 

012757 

11 $7g7 




h 1 0 
b; ; 
b*2 

W ■ 

3 ■*, 3 

5.4 

b.S 
a - 5 
b.7 

b: 8 

b I 9 

be* * 


b24 


bc*7 

528 

52s 


!i 

532 

533 

534 

535 
535 

I 37 

IhO 

bH« 

542 

543 
54* 
545 
545 

547 

548 

549 
55C 


00l3*+0 
20134? 
00134*4 
:pi 

C0I3S4 

001350 

00137b 

31404 

3145b 
0014 10 

JiMiP 

114^5 
31422 

3142b 
0014%! 
11432 
31434 
Xl43b 
11442 
J1444 
00144b 
30 1 4 
001 

001 . . 
001 4b2 
001455 
001474 
00147b 
001500 
001502 
001510 
00151b 
001520 

B8ii 

0C153C 


042757 

1 

gopoQO 

jcxnJi 

1CH023 



10J3'H 



31774 
005777 
100411 
10402S 


31 

1057b'* 

104010 

010125 



- 

015701 

&& 

104010 

010152 
012757 
0l27b7 
10404b 
000000 
000407 
015700 
I Ib0fc7 


I774?b 

17741b 

01021C 

177777 

100200 

I773b0 


17742b 


014000 

177854 

0Q37bC 


17733b 

010200 


mi 


1 774 i 4 
177404 


I773bb 


177324 

177374 


0000 iu 


G 

17732b 


B02 
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START 


' °E 

PuTIT 

JSR 

IN8IN 

^NRNO 


•SPBOT.Rb 
PC .CORSTP 


iHi 


YP£ 


8^ 


TTOfl Of 
ITLE. 


3® STACK 


ASSIGN SUFFER SPACE. 
BINARY COUNT PATTERN , 


TST G»42 

BEG STRTF 

: ROUTINE TO DETEF 


DTRHN: 


SQ0RV1 


DTRMN8: 


DTRfINC: 


3PENA: 




40V 


StLORv 
OPEN 

SETCOfl 

RNUM+REV 


177 


ftwNOON NUMBER GENERATOR, 
AM LOAOEO VIA NON I TOR' 
,wR IF NOT. 

TRANSPORTS AVAILABLE FOR TEST. 

;QIS%JiRROP PRINTOUTS. 
A|fuM| QRIVCS 1-? AVAIL ABl 
0 TEST 8 TINES. 


i: r 


77^0 , SGORV 1 


;SI 


otrnna 


A TRANSPORT. 

i transport •. 

UNIT NOT AVAILABLE RETURN. 
; REWIND TO REVERSE END ZONE 


& 

%\ 
8PL 
40V 
>V 

T 

> 

8R 


a 

ST 


40V 


0TRMN8 

3TCCN 

GTCST 

OTRme 

iCODENO. 3TC8A 
•-l.STCftC 


;?Ian^PC 

; JNIT NC 

; REWIND 

;ERR^R RETURN. 


; Si 

. V! 


NO ZONE' 

R IF NOT. 

ET CURRENT AODR. 

T WORQ COUNT. 

S. ISSUE WRITE DATA C0N4AND 


OTRNNA: 


MI 

iTOPDT 

:r 


♦FWO*DO 

DTRNNB ; ERROR RETURN. 

*8^T1S*BIT7.5TCCN ;WAIT FOR ERROP READY. 

CN ; ERROR’ 

NNB ;|R IF Y{ 


T STB 


006437 


'Yp£ 

NOUNIT 

|R^ 

NOV 

BICB 

Type 

0000 

NOV 

NOV 

ikr 

BP 

NOV 
40 VB 


0?RNN 

UNITS 

OTRNNC 

CHNC 

•81 T 12*BIT 11 , S3 
0 1 RflNR 
S0DRV1.R1 
UNTACil). UNITS 
OTRNNA 


•l.CPENA 

•7.CTRA 


CPENB 

unitn.ro 

GTAB * ■ . ; T AP£S 


>top dectape. 

4ITS 


; ANY 


AVAILA8LE’ 


^N] . 

!fW' non" AVAILABLE NESSAGE 


0 EXIT. 


■oil 

;BR IF 


nM. 


lO OR SELE ERROR- 


; DESELECT NON AVAILABLE TRANSPOR 
; TYPE UNITS TO BE TESTED. 


CHECK UP TO 7 UNITS. 

SELECT DRIVE. 

UNIT TO BE SELECTED. 

UNIT NOT AVAILABLE. 
SUCCESS. 

GET ASCII ■ FOR GOOD T APE . 




* 


'ESt S 
31 -Auu 




i OHO 10 

*5 


70 
7Dw 
70S 

*' %JX* UUC W 1 


C 02 


hacy 

1H 


1 30 > lOHfa > 31 -AUG* 


1H ; l i PAGE IS 


? i??sH 



CPEN8: 

S T RTA: 


1 7fa00C 1772 'fa 


ooiooa ooiioe 
17721 fa i7~222 


17 fal! 


1 757QM 


177777 177122 07*0*0: 


CMAINN: 


1770S0 

OHOOOC 1 ‘*Sfa 1 2 


i7S57fa 

i77G2fa 

00200C 1 75SfaO 

1 77Q2C 

00100C 175£ H£ 


CMNAC: 

CHNA8: 

CHNA: 


CHNAA: 


: hhb i 


•"DC 

'API 


ES 


INC 

V EC 

dnc 

0TV& 

8« 


Ypr 
NS 7 

:hal 
10 VB 

& 


uETROY: 

GTROYX: 




' Y 

ASE 

chal 

HOV 
NOV 
NOV 
NOV 

f! 8 W 

3 

CLP 




ft 


QRUN: 

TRCYC: 


NOV 
BE 3 

;np 
A I NCR T 

v'HALT 

8R 

STOPDT 

NOV 

CON 


NA 


OPEN 
CTRA 

C PENA-2 
iETf- 


rROY 


NOVB SR. UNITS 

|£U S r 6*A 


•1002.ERRNO 
YSTARt.NXTST 
•PR 7 Y7 PSW 
»S?80T . RS 


* r RyNT 
WAQOR 


RAOQfi 

RT.rOf 



frdyc 

iT< 


RO 


GORUN 
•-1.NXTST 

;tr6-a 


GE7RC> 

•SP80T,Rfa 

f - N r 

CHNAC 

ICNT 

•emN.sR 

CHNA 

ascoPTR 

•filTll.SR 

CMNAA 

ICTR 

, 'mnac 

■eirio.sR 

CHN8 

6tnno.ro 

•BITS, SR 

;e ? rc< 


, ’ °E ■ OP JNr TO TEST 

;jPQRTE TO NEK T DRIVE. 
iCHECKZO AL- DRIVES' 

,9« IP not, 

• £ ,i 


SELECT INSTRUCTIONS 
R v 

Test. 

o. 



; _ )NNON NAw , 

;tNA©LE ERROR PRINTOUTS 


:ty ?, 

‘ON OP STAC* 



TO NX T S T 


INTERRUPT VECTOR 
PER COUNT. 


. ftft, 

i ag%, 

; TO RUN 
I ; SR I * 
;NASK 
IP 
IP 

; NO . CHECK 
BRANCH IP 

. r vor r w * % 


FORWARD TO “NEXT' RCU r 
SEwECT ROUTINE SWITCH 
EOT routine Sw 

T ROUTINE. 

S Wk. 

FOUNO. 

^p.r routine. 


INC 

Switch IS SF 


F£X>ND. 

LR.r routine. 

,r nui L ST ROUTINE. 
‘ype INCORRECT *Tn SELECTED. 

; . JNMON HAL* 

; t’ART OVER 


; REST ORE STAC* 
•’NCRENENT ITERAT- 


ION 

not 5. 

T ICNT 



:ount 
TO * 


TION. 
NOT SE 


INHIBIT ITERATION SWITCH 

ich if inhibit iteration sw 
ehent iteration COUNT. 

ICH IF COUNT NOT o. 

/TINE END HALT SW SET 
X1CH IF NOT SET. 

»T t TO RO. 


SE' 



ST « . 
SwHCh 
SW SE 


t h , * r * 

4 H W 4 'HI 



t 'it s 

31 auc 


P’* 


Q2QM2 

020*4*4 


00211 m 




SlflOG 31 
002 1!>* Q* 
Oy2uo 5: 


Jb b ' 

iY*j 

10*0$ 

iaso7 


01 25©7 

m rv :t? 


ffififS 318*? 

ooaiie Qib^b7 
0021 mo aooec-' 

mx 3t&3& 

0C2.S0 314000 

. irv* ! cu» rmc. ~tr\n 


Q0215M OlOQGO 
002100 000200 

002 102 012666 
002106 012000 
0021 72 012707 

D02200 000m i 5 

002202 0ie"*b7 

0022 iO 000*403 

m& siibib 

0O222M 012000 


002232 OiCHnO 
00223m 0I03H0 

Sis ®ssi 

0022S0 010005 



30220m 012003 

0C2200 312031 


NftCYH 

1M:08 

| «*<•*«» «* «* 


OOQOMP 


170700 

000002 

171122 


177700 
17 7700 
000002 


0002MO 


177702 

177702 


00002C 


30> iOMfe 
1 ”*7002 


3002m C 


i~07‘f0 

i *18 

im 

1 707 ’ M 


170070 

17SM30 


OOOOMO 

000030 

000020 


D02 


31 -AUG- " 1M: 1 i °AGE 10 

wip i-i.nxtst 


»7P 

f$ £ 

APG£flC 

MOV 

8EG 




FORWDA. 


a - i .MX 
• m 3> x 


atM|.RO 

Py G ; 

n5A NOP . MOP 

JNltS 

CHNC 

Petrov 

M<TST RS 
5 ) ♦, ATNNO 
<§>♦, NXTST 
S)* ICTR 
Si^.SCOPTR 


MOV •i.ICHT 

MOV RtAnO.SR 

:EMT INTER^RETER^OUTINE. 
£nTINT- mqv RO.-iO) 

MOV 2 ‘ b ,RU 

MOV - • 0 * . RO 

asl ro 

MOV EMTTAe-iOOOOi 

RTS RQ 

:SAVf RE OS 0 TO 3 SUBROyTlrC. 
§V03: MOV i 6 > ♦ , - 1 u ; 0 > 


branch IF MOT u AS’ T£S t . 
t /PE PROGRAM FMO BELL. 

^T^ONTEMTS Of M2. 

NQT*Q. ISSUE RESET, 

RETURN TO MONITOR. 

AMY UNITS AVAILABLE POP TES’INO* 
09 IF NOT. 

P E PEAT PROGRAM. 

Of NEXT ROUTINE TO RS. 

NEXT ROUTINE NUMBER 
GET AQQR OF NEXT "NEX T " ROUTINE 
GET ITERATION COUNT. 

G£T SCOPE LOOP entry POINTER, 

wt t test T = cuBTs 

DISPLAY ROUTINE •. 

EXIT FORWO SUBROUTINE. 

PUSH RO. 

GET EMT PC. 


GET EMT CALL. 

* Tints 2 ■ 

RC -FORM EMT AO0R. 

; GO TO EAT RTN. RESTORE RC 

.MOVE PC UPS TACK. 

; MOVE STATUS UPSTACK. 



TO SAVE REGS 
S: MOV »N 

0R SV 

TO SAVE REGS 



Place Emt PC IN rs 


SVOSB: 


SVQSC 


.RES’ 

AS03; 


MOV 

•RTI. SvOSC 


MOV 

< fe >♦. -i M. ( 0 ■ 

; MOVE PC AND PSw JFS’ACK . 

MOV 

0 ! ♦ , -IM . iO? 


MOV 

RS. -!b> 


MOV 

RM.-O 


MQV 

R3,-i0l 


MOV 

R2. - .0 


MOV 

Rl , - > fe 


MOV 

RC. - 0 


» p y? H2 


;R r : OR NCF . 

MOV 

10 -fc.'.RS 

;EM* PC TO RS 

MQV 

RS. R* 4 


T|t 

- ? A i 


RT I 


{EXIT. 

REGS 3 

TO 3 subroutine. 


PQPSP2 

MOV 

. b ♦ . fi 3 

; RESTORE REGS 3 TO m. | 

MO* 

0 ♦ . 6 1 



E02 


’cs - T c * ; 

DZTCED.P , 1 


: g 


791 

’92 

793 

'9 s * 

mpqct 

* 70 

79b 

'97 

'98 

'99 

300 

801 

802 

903 

9CN 

805 

80b 

8C7 

808 

809 

810 
811 

912 

9 1 3 
9:* 

O 1 C 

A tw* 

eib 

81’ 

e.e 


’ E' ST S 

31 "Au, 


sta&rs 

0022 'N 

002300 

70230 s * 

OC 1230b 


3 

M 

*5S 

788 

7b' 

’58 

’89 

f > W 
•#"»* # 

77 c? 
”3 

774 

775 

77b 

'** 

•* •’*§ 
7~9 
790 
7B 1 

’a? 


7pM 002354 




002324 
nap: ' 


00233 s * 
i20hq 
£>*2 


002900 

0 Q 2 hq 2 

002 h 0 h 

002 A 1 Q 

oops: a 

002418 

3®I3 

002428 


002480 
'■?Hb2 
*484 
*488 

002470 


BtH8l 

0158*45 

Olbb^fa 

000002 


8 




01250 s * 

012505 

0158*48 

0188*48 

000002 


10HQ08 

‘1 1 ~ 

li 

018721 


* 

8 



1 OH 005 

8 A 8088 

10*400- 

000002 


MAC Vi 1 
1 4 : 08 


177788 

177788 


30 1 1 0*48 1 31 -AUG* 
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010588 000020 

8?§tSS 


012801 
5 12503 

012804 

1 ?y>05 

k 5b*48 
0158*45 
000002 
012588 
88 
48 
0.3448 
,4fc 

!l 

DOS 744 


1 77782 


1 7 / / 

... -***•-'*«* 3 

1 / f if c 

I ****** 


DOOCIO 

000010 


177772 

177772 


175372 

178388 

052525 

177770 


40 V 

4.3 v 
40V 
40V 

RT^ 


-10. 18/, 
-10, ( 8 > , 


• 4, b 5 

CbJ 


MOVE PC ANC PSw DOWN S T AC 


.SU9 TO SE 
ftSOf S : MOV 

TO RESTORE 
P0RSP2 

MOV 
MOV 
MOV 
MOV 
MOV 
MC 

M( 

MOV 
Pf I 

SVSS : MOV 

MOV 

MOV 

MQV 

°USH2 

MOV 

MOV 

'ST 

PTJ 

RS5S: MOV 

P0PSP2 

MOV 
MOV 
MOV 
MOV 
RTI 


RS IN EMT PC Arc R£St 


.( b ) ♦ 

( b ♦ 
( b ! ♦ 

{ b > 4 

£b)* 

(5)* 


b. £ 
0 

RC 

Rl 

R 2 

Rj 

R*4 

RS 


0 5. 


§r£ t *egs 

SET EMT p 


0 T 0£ , 

TO RS CONSENTS 


■ 1 M „ t b 1 , - f b 
14 . i b • , - ' b 

• b • 4 , ~b > b ■ 

> b • * t — b • b 
RS. -!b 

R4 - ( b > 


,RS 


fe:fc 

- 4 
RS. 8. 


1 b ) * , R 4 
b £ ♦ . RS 
-b(b^.-,b 
*5b!,* b 


; MOVE PC ANC' e Sw DOWNS TACK 
;£>:IT. 

; PC AND PSW JPS’AC- . 

; SAVE R5. 

; SAVE R4. 

; £MT PC TO RS. 

;*MT PC TO R4, 


;|Ti:.EM’ 


5 TO EM 
STORE RS 




; RESTORE R4 
; RE 


E<I T . 


VECTOR To Rl. 

SET DESIRED VECTOR 
SE’ TC 1 1 PRIORI’-'. 


: ROUTINE t 0 SET TC 1 1 INTERRUPT VICTOR AND PRIORI T 

$7TCV: 5AVCSS 

MOV ’CV’R.RI 

MOV ( S 3 ♦ , ’ 1 J ♦ 

MOV TCLVL.l If * 

RSTOSS 
RTI 

: ROUTINE TO ISSUE RESET. 

^RSE’T; MOV RC. - i b 

MOV *5^525. RC 
COM RO 
MOV RO, SRSE T ’ 4*4 
RESET 

MOV b 4 . PC 

RTI 

i COMMON HALT ROUTINE 

w HL T : SAVOSS 

MQV R4.RC 

HALT 
RSTOSS 
RTI 

; CONDITIONAL ERROR hA^' B *.’;*€ 


PUSH RC. 

DA 'A TO RC. 
COMPLEMENT ; RC 1 • 
(RO) TO SRSETT+h, 
ISSUE R£SE' . ro: 
RESTORE ro. 
DISPLAVED. EXIT. 


IS 


; DEVELOP ADDA OF CAllER. 
; HAL T CALL mDDR IN DA’ A 

; E X I T , 





! 


SEC DC i £ 

; CHECK FOR hAl t on error, 
i&ranch if nc halt desired. 

; HALT . 

; IN DATA LIGHTS. 

; all stop. 

; CONVERT CALL AOCR OF $U0 C AuLl^G. 

;SAVE REG SS 

; DETERMINE CALLING AODP. 

; CONVERT CALLING ADDR TO ASCII. 

; CONVERT r £S : , TO ASCII. 


CONVERT 

ICNT TO 

DEC IMA*. ASCII. . 

COnvER’ 

ln; t ■ t 

'C ASCII. 

CONVERT 

BLKRw T C 

ASC 1 1 . 

CONVERT 

TCS T to 

ASCII. 

CONVERT 

tccn to 

ASCII. 

CONVER T 

tcwc to 

ASCII . 

CONVER T 

TC9A TO 

ASC I I . 

CONVERT 

TRANSFER 

CClN" t c ascii. 

CONVERT 

WRITE AD 

DR T C ASCII. 


I 

! 




T C5 

w»4* ' 


6»9' 


“t ST 1 

31 


■l ”’S 

5-f 



?9 

890 

89: 

C*C£ 

993 

894 


900 

9J1 


CJQ* 

904 

906 
90b 

907 

908 

909 
813 
911 
918 
9 ; 3 
91*4 
81S 
9ib 
917 
c 10 
619 

920 

921 

922 
953 
924 
C5S 
92b 
957 


ie 

959 

930 


j^rbc sMt> 

002670 
DQ26'5 
74 
7b 
04 
7i? 
714 
71b 
720 

7?4 
005"35 
005734 
0fV7 3b 
005740 

005745 

302744 

00574b 

Sr 

0087SS 

c w< 

00c’ 7 bb 
002775 
' ' 77 74 

3000 
003005 
00300b 
003015 
114 



00303b 


0030* 3 
0C3043 
00304b 
003064 
0030Sb 


0030b4 

0030bb 


00307Q 

» 

003110 

0G3115 


AUG 1 

O/’Ok r 

I 04C 1 

X 

'30 


nftcvn 

14:08 



Ui 5667 
0557b' 
001364 
)405i 

34 

00X05 

A ?43X 
015600 
; 15001 
00103b 
1 15' Ol 
004767 


15570 1 
00 1411 
£»47b7 
J&765 

1101 '7 
106777 
100375 
000207 

mi 

mi 

000743 

000033 
012567 
022767 
XI 005 
000004 
000002 
104010 
OOOQX 
0007 65 

003074 

003105 

015727 

8AI5|? 

001375 

005367 


30' 1046 i 31 -AUG* 


G02 
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XC177 

xooso 


X0045 

xooos 


17601 

17601 


ms 

ms 


0000 IS 

174656 


*64 


□000 16 
177777 QOQG 


000310 000000 

oooooc 


ERRNA: 

ERRNO: 

ERRS: 

ERRN8: 


ERRNC : 


Bacnv 

RAQQR 

ARAODR 

6 

40 V 
BIT 

m € 

OPEN 

MOV 

CMP 

9NE 

EHALT 

R5T5S 


; CONVERT READ AO DR TO AS! 


®¥i! 

ERRNS 
C 5 1 ♦ . £ 

ER^i 1 


R MSG 
INT’ 


SUBROUTINE TC 
SAV051 

MOV 


tv* 

TYPA: 


RRfi ; TYPE ERR HER 

I. SR ; INHIBIT ERR 

39 TO INHIBIT. 

- 'PE M$G. 

.DESIRED MSG AQOR GOES HERE. 

RR8 ; GET AOOR OF NEXT MSG. 

RB ; TERMINATOR’ 

GO TYPE IF NOT TERMINATOR. 
ENO OF MSGS. HALT IF REQUIRE 
RESTORE REG 5S. 

.EXIT EMT SUB. 

OUTPUT ASCII MESSAGE ON TELETYPE PRINTER. 


no t inhibit: 


TYPC : 

TYPD: 

TYPF : 
TYPG: 


movb 

BNE 

MOVB 

JSR 

RSTOSS 

RTI 

CMP8 

BEG 

JSR 

9R 

M0V8 
TSTB 
8PL 
RTS 
MOVB 
JSR 
MOVB 
JSR 
9R 


v 5 ) ♦ . RO 
1 0 5 * . R I 

TYPC 
• 1 77, Ri 
R7.TYPD 


■4S.R1 

TYPp 
97, TYPC 
tyAa 

R 1 .STP 0 

otAs 


ADORES 5 OF MESSAGE TO RO. 
GET CHARACTER 

branch if not terminator. 

OUTPUT RUBOUT. 


; TERMINATOR CHAR. 
; CHECK FOR M v”. 

; BRANCH IF"'/." 

; TYPE CHAR IN Ri 


DONE. Ex; 


; OUTPUT CHARACTER TC PRINTER 

: hait for done flag. 


; EXIT 

; MOVE CARRIAGE RETURN 
; GO TYPE CHAR. 

; MOVE LF CODE TO Ri. 
;GC TYPE CHAR. 


CODE 


R 1 


| SUBROUTINE 


*S: 


. . YPD 

TyAn 

TO OUTPUT A SERIES OF ASCII MESSAGES ON TELETYPE PR I N T E c 
SAV5S 


MOV 

CMP 
BNE 
RST5S 
RT I 

TYPSA: TYPE 

TYPSB: OPEN 

gp 

; SUBROUTINE TO DELAY 
DLVR0=DLY44 
DLYRlsDLVA+S 


( 5 > + TYPOS 
•-1. TYPSB 
TYp^A 


TyPS+5 



1 7775fc 


MOV 

MOV 

DEC 

BNE 

DEC 


•500 . , 
ilQOC. 
DLYR1 
DLYB 

DLYRO 


•Q 

, iO 


; AQDR OF MESSAGE TC TYPSB. 

; CHECK FOR TERMINATOR 
; BRANCH IF NOT TERMINATOR. 

; TERMINATOR. EXIT 
; CALL ON TYP SUB TO TYPE MESSAGE 
•ADDRESS OF MESSAGE GOES HERE 
-C PROCESS NEXT MESSAGE 


; DELAY COUNT TO CLYRl. 



a d . p ; 


&(?8i 


UU3i Jo 
303144 
003 1 -*b 

mus 


0137*7 

i ^ "* 

500003 

000000 


003162 

303166 

003173 


Ji O' b' 

56s ib^ 

005167 

,001003 


177764 

177754 


003 1 ^4 

0053S7 

177753 

003300 

Cib7b7 

17774b 

00330b 

000003 


0033 i a 

016735 

17773b 

003314 

000004 


00321b 

000003 


003330 

1 0^ 00b 


88£P 



003326 

0 1 3502 




177770 

003340 

083703 

000060 


442700 

0080 OG 

000007 

0033S4 

ooboao 


0033S6 

OObOOO 



HOE 


nacwi 30a04b) 

1M:08 
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OLYA 


.SUBROUTINE 
IN8INN: NOV 


INITIALIZE BINARY 
•-1.RINC 

rinC.ptc 

RIND, °T 1 


NOV R INC , °T 1 

RT T 

RIND: OPEN 

PTO: OPEN 

PT 1 ; OPEN 

: SPECIAL BINARY COUNT PA 
iTBINl: NOV PT1 

CON PTI 

CON RIND 

9N£ . +6 

INC PTI 

NOV PTI, PTO 

SAV5S 

NOV PTl.i5>+ 

RST5S 

RTI 

: ENT SUB TO CONVERT OCTAL 
OACNVV: SAVOSS 

NOV 3iS)+.RC 

NOV iS^.Rl 

NOV i s ) ♦ , R2 

ADD RP.Ri 

OACNVA : NOV RL'.RJ 


; EXIT. 

' COUNT PATTERNS 
; SET ALL VARIAB. 

;EXIT. 


PATTERN SUBROUTINE 


; PREVIOUS BIN 


. SAVE 


aic 

AOO 

NOV0 

QIC 

ROR 

ROR 

ROR 

DEC 

8NE 


3 • 5 < . RC 
(5)^.R3 

65$ 

« 1*7770, R3 
•bO , R3 
P3. -( 1 ) 

■ 7,R0 

RO 

RC 

RC 

R| 

OACNVA 


: EXI T 

Ascii. 

; SAVE 


CHAR 


REGS. 

iCTAL val 


; GET OuTAl VALUE. 

; *et destination addr. 

; GET CONVERT COUNT. 

; DEVELOP ADDR TO STORE 

; ISOLATE LEAST SIGNIFK 
; CONVERT DIGIT TO ASCI] 
; STORE ASCII CHARACTER. 


988 

003364 

10400^ 


RST05S 


989 

003386 

000002 


PTI 


97Q 



: ENT 

SUB TO NOVE 

VARIABLE 

971 

JC3373 

lONOOb 

BMOV 

V: SAVOSS 


t 973 

003373 

0I3S01 


NOV 

(S) ♦ . Rl 

973 

003374 

013503 


NOV 

( S 5 ♦ . R2 

Q7N 

003c 7b 

013503 


NOV 

t5)*.R3 

975 

003300 

l LSI SS 

BNOV 

A* NOVB 

( n ♦ , c s ) + 

97b 

003303 

005303 


DEC 

R3 

977 

003304 

001375 


8N£ 

BNOVA 

978 

00330b 

10*007 


RSTOSS 


979 

003310 

000003 


RTI 


980 



iEMT 

SUB TO CCNV 

ERT 8 1 NAP’ 


NUNBER 


c ** 

DONE. 


0033 IS 
003314 
00331b 
003323 
00333b 
0C3333 


10400b 
013501 
013700 
Cl 3702 
01 2703 
00SCC4 


6dcnvv 


0C3414 

CC3432 

nnnnnc 


SAVOSS 

NOV 

NOV 

NOV 

MOV 

r.i p 


a(5)+.Ri 
•DECvAl.RO 
•TENPwR . 92 
•S.P3 

pa 


; DONE Ai_L DIGITS' 

; &RANCH IF NOT DONE. 

; RESTORE REGS. 

; DONE . EXIT. 

iep of bytes. 

; SAVE REGS. 

; G£T**FR0ff* ADDRESS 
; GET" T Q** ADDRESS 

; GET COUNT 
; NOVE BYTE 
: DECRENENT COUNT 
; BRANCH IF NOT D'NE . 

: RESTORE REGS. 

: DONE. EXIT. 

DEilNAL ASCII. 

; SAVE REGS. 

; GET BINARY VALUE. 

: ADOR OF DEC VAL TO RG. 

: ADDR OF 10 POWER T C R] 
: SET UP FOR 5 CON VERST 
: Ci_EAP OESUL T . 


ro 



02 1 C E 


TC. 

s.P. 


10, 


932 

993 

999 

99S 

9% 

992 

998 

999 
1300 

:oc: 

1305 
>3 


3 1 AUG 



* JOS 
1008 
1002 
1008 
1009 

n ; n 

* V* «w w 

i 0 1 1 

* n i :> 

* u A *. 

15*3 

1019 

1015 
t n 


x u i 8 

1019 

i050 

:o?i 

1055 
1023 

1339 

135S 

1056 
1052 

1058 

1059 

1030 

1031 

1 035 
-033 
1039 
1Q3S 

1036 

1032 
1 036 
1039 

1090 

1091 

t 

A ” Ate. 


003320 

003325 

0003 79 

838® 

oo:no5 

000909 
000906 
0009 1 0 
nma % 3 

0009 1 9 
0009 1 - 


Qib ,039 
012 J039 


888 ® 

0039 3h 

"JC 

Jo 
M99 

003996 
0039S5 
003959 
003960 
003969 
003970 
003976 
QQ3SQ5 
003506 
003S10 
003515 
0035 1 6 
003S55 
003S59 
003S30 
003S39 
003S36 
0C3S90 
003595 
003599 
003596 
003550 
003555 
303556 



01 5535 
06 0501 

119091 

005305 

00137 $ 

t 3unni 

580882 

053950 

001750 

0001*9 

000015 

000001 

090 

090 

3A47§7 

001907 


015701 

000902 

015701 

165701 

065711 

015767 

010167 

165701 

006001 

006001 

095701 

010167 

006301 

065701 

010167 

109013 

001100 

007999 

000006 

109010 

8 07910 
00507 
015716 
000005 


MAC Yll 

19:08 
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000060 


BOCNVB: 


80CNVC: 


0*0 

090 


55$ 

9c 


,90 


BOCNVD: 


TENPWR: 


DECVAl 


)D 
AQD 
nOvB 

TST 

DEC 

BNE 
90V 
90 V 

ADD 

9OV0 

DEC 

BN£ 

R^TQ5S 

10000. 

1000 . 

100 . 

10 . 

I 

BYTE 


pH 

8gCNV8 

•60 ! R9 ; CONVERT 
R9, 10)9 
(PW 
R3 

9DCNVA 
(S)9.R1 
( S 5 ♦ , R5 
RS.Ri 

- c £n . - a ) 

R2 

80CNVD 


iQ POWER FRO, 9 VALUE 
m IF UNSUCCESSFUL. 

si 1? mi- 

RESTORE SUBTRACTED 


VhL UE 



ult. 

POWER 

MES’ 


RESULT 10 ASCII 

s 

UP! 

DONE 

BR IF NO 
Q£T AOOR 
SET a OF 

start with 
Transfer ch 

DONE 7 

8R IF NOT. 
RESTORE REGS. 
EXIT. 


ADDP. 


TO STORE ASCII 
DIGITS require; 

0. 

AC TER . 


090 . 090 , 090 . 090 . 090 . 090 


005059 

175000 



1-9359 fORSTP 


000095 


CORSTF: 

CORSTA: 


SUBROUTINE TO ASSIGN BUFFER AREAS PER AVAILABLE 


ft 


175376 

010510 


000001 

175365 

GICciC 

175396 


’9306 


CORSTD: 


003960 


;0RST8: 


>T 
8EQ 
CMP 
§£Q 
MOV 
8R 
MOV 

sue 

AOD 
MOV 
MOV 
SU8 
ROR 
POR 
6 T 
MO ' 

AS. 

ACO 

MjV 

OACNV 

PBFLI9 

ACRLIM 

6 

TYPE 
HADRM 
RTS 
MOV 
RTI 


•CORSTB.MACHER 

3»95 

CORS r F 

8175000. Ri 
CORSTA 
*177500. R 1 
*50000. Pi 
*0.(1) 

*6, MAC HER 
ri.rbflim 
•c6deno.pi 

R1 

Ri 

*BI TQ R l 
RI. BELIZE 
Ri 

•CODE NO .Ri 

ri.wbflim 


CORE. 


SET UP BlJ§ ERROR TRAP POINTER. 
LOADED VIA MONITOR’ 

BR IF NOT. 

95=LQGIC’ 

BR IF YES. 

175000 TO INITIAL TEST ADOR. 

177S00 TO INITIAL TEST ADDR . 
SUBTRACT 50000 FROM TEST ADDR. 
REFERENCE TEST AOOR. 

IF NO TRAP CORE IS AVAILABLE. 

SET READ BUFFER UPPER LIMIT. 
COMPUTE AVAILABLE BUFFER SPACE. 
COMPUTE BUFFER SIZE (READ OR UP I 


; COMPUTED BUFFER SIZE TO BESIDE. 

: COMPUTE WRITE 8UFFER UPPER LIMT 
: AND MOVE TO WBFLIM. 

; TYPEOUT HIGHEST TEST ADOR. 


PC 

•CORSTA, k 6 ) 


EXIT. 

SET UP TRAP EXIT. 
EXIT BUS ERROR TRAP 


;EM T RANDOM NUMBER GENERATOR. NUMBER IS STORED AT LOC AFTE= 


D-.C 



TC5 • TC, 

oz" : t : . p; 


iC’% 

t 

<4 W t i" 

aB'^8 

i Q4R 
.050 


X i 

>3 

IOS5 

1058 
105' 
less 

1059 

iosq 

iObi 


1084 
l Ob 5 
1088 

1087 

1088 

1089 
* O' 3 
iOri 

1072 

1073 
t n?u 
ill/ “ 

107S 
107b 
1 Q7? 
;CT8 

aw-' o5 

1090 
1061 
1062 

1063 

1064 

1085 
108b 

1087 

1088 
.088 
1080 
1081 
1082 
1083 
1094 
108S 
10 % 
1087 

1 HOC 1 
i U TFB 


r £ ST *• 

31 A Ju • 


A? A 
Ui b7 

DOS 130 


JO, 


QQ3S88 

003570 

003802 



00 %: 

003872 

00387-4 


003878 

003700 

003702 

003710 

003718 

003720 

003722 

003724 


003728 

003730 

003732 

003740 

003742 

0037% 

003752 

003754 

003758 

003780 

003783 

003788 


008100 



,14 
,1b 
003822 
003828 
003830 
003832 
003834 

003838 
>44 
>52 

00J8S4 


01872S 

104007 

000002 

001233 

007822 

012787 

ft i 


008287 

042787 


000770 

000002 


1040 IS 

oooooo 

042787 

018787 

104048 

OOOOOO 

000785 

000002 


104008 

012S00 

138087 

001405 

010087 

110087 

005725 

104007 

000002 

001 

CIO 

100 


MAC Vi 1 
14:08 


000044 



177 

177 


T 70 

>84 
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:£ 


000022 


000012 

000004 


001233 

007822 


0000 10 
177770 


DC' 

02U 

20C 


17/ 788 
177782 


000002 


If it i U 

000002 


003780 175130 

175120 

175113 


004 

040 


RNGEN: 


API : 

R°2 . 

, EMT 


5 A VOSS 

40 V 
9 V 
P ! >L 

aoo 

MOV 

POL 

POL 

ADD 

POL 

POL 

MOV 

MOV 

PS TOSS 

or: 

1233 


PP1.R0 

PO 

P?2.R0 
PO. API 

RO 

RQ 

RP2.R0 

RO 

PC 

R0.PP2 
RPi. (5)* 


; STORE 
E V I T . 


« AT lOC AFTER SUB CAL 


SUB T( 


r 822 


INITIALIZE RANOOM NUMBER GENERATOR. 

I NRNDN : MOV *1233, RPI 

MOV »7522.RP2 

pf I ' * E X 1 T 

: EMT SUB TO SELECT SEQUENTIAL DEdTAPE ‘ UN I T . 

SQDRV: INC SQORVA 

SIC §177770, SQORVA 

SELDRV ; SELECT TRANSPORT. 

SQORVA; OPEN ; TRANSPORT NUMBER. 

8R SQDRV ; TRANSPORT NOT AVAILABLE RETURN. 

RTI -TRANSPORT SELECTED. EXIT. 

; EMT SUB TO SELECT RANDOM DECTAPC UNIT. 

CALL: RNDRIV 


§1 77770, RNDRVA 

rndrva.Anorvb 


AnDRVV : RNDNUM 
RNDRVA: OPEN 

8IC 
MOV 

SELDRV 

RNDRVB: OPEN 
8R 
RTI 

; EMT SUB TO SELECT DEC TAPE UNIT 
: CALL ‘ ' 


GET RANDOM NUMBER. 
» ’S STORED HERE. 

LliilT TO 3 LSB. 


RNDRVV 


SELDRR: 


SELDRA : 
UNTAB: 


SEi 
SELDRV 

» 

XXX 

NS I 

SAV05S 

MOV 

BITB 

BEQ 

MOV 

MOVE 

1ST 

RSTOSS 

RTI 

.BYTE 


; SELECT RANOOM UNIT 
; NUMBER OF UNIT TO BE S£LEC T EC. 

.UNIT NOT AVAILABLE FOR TEST INC ret. 
:EXIT. UNIT IS SELECTED. 

.. _ . Specified if available for 

; CALL SELECT SUBROUTINE. 

-.NUMBER OF UNIT TO BE SELECTED. 

; UNIT NOT AVAILABLE RETURN. 

; RETURN IF UNIT IS SUCCESSFULLY SELECTED. 


;RT 


"ES r INu 


(SW.RO 

UNTa6(0). UNITS 
SELDRA 
RO.UNITN 
RO, UNIT*! 

(SU 


; GET NUMBER OF DESIRED UNIT. 

; SEE IF UNIT IS TESTABLE. 

;BR IF NOT. 

; TESTABLE. SAVE UNIT NUMBER. 

; POSITION UNIT NUMBER FOR ^ATE'P 


; EXIT 


8IT0.8ITi.BIT2.BlT3.BiT4.BIT5.aiTb.BIT7 


;EM T SUB T 0 GENERATE RANDOM TRANSFER CGUF T CFRONT 



14: 1 . 


tcs 

DI'Cll. 

-099 

~Q9 

* ^ U i 

..03 
-.03 
i aD^ 

I * OS 

I I OS 

no* 

..08 

..00 

i 113 

1 1 n 

iii? 

1113 

'.114 

.IS 

X i 8 

a « « ’■% 

A G. 11 

1110 
1119 

1 1 


t: 

:.Pi 


:.T 


i 


£*0 

m :m 

* <* «* * 

. .122 

i l£'3 

l.c’4 

1 It’S 

1 138 
1 133 

1136 

1 139 

1130 

1131 
1133 
1133 
.134 
113S 
1130 

1137 

1138 

1139 

1140 

1141 
1143 
1143 
1 144 
.145 
1140 
1147 
I 148 
1 149 

1150 

1151 
1 1 5c 
1153 

1 164 



3 1 4-Jsj - , 

.04Q1S 


ooho^ 

D0404w 

004040 

004QS4 


)4f 
004078 
004104 

004 u o 

004114 

004.133 

004.130 

004.13*4 

004 1 J0 
004. 4Q 
004,1 44 
Q041S0 
0041S4 
OO41S0 
004100 
004103 
004104 

004 100 
004170 
004173 
004300 


30431! 

004310 

004330 

004333 

QQ 4334 

004333 

004334 

004343 

004344 

0043S3 

004300 

0Q43bC 

004204 


OOS'87 

610 ? 0 ? 

003033 


Q187ts7 
108707 
1 00 < 87 
Oio707 

mn 

I bo / 1* / 
010707 

tm 

013707 

100707 

OOS307 

000003 

1 04000 
0io70Q 
010701 
010703 
010130 
005303 
00 ’ 375 
104Q07 
000003 

104015 

QOOQOQ 

030787 

101373 

010707 

010707 

000003 

104015 

000000 

030707 

101373 

030737 

101300 

010707 

010707 

000002 

104000 

010*00 


MAC >i i 
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0003 ’7 
177704 

17"*7S0 

17-740 


170044 

17S042 

175034 

175030 

}750l< 
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i£i 


I! 

170 C __ 

001103 

174770 

174702 


174744 

174710 

174732 


177702 

174044 


174000 

177703 

177753 

174003 

174020 


U 


175080 

17SO0Q 


175050 

17S243 

175034 

175030 

17SQ32 

175014 

175013 


174772 

174704 


177773 174714 


174050 

174044 


177770 

0C1 1C1 

174000 

174003 


RNOXFF : 
RNOVFA: 


RNDNUM 

OPEN 

6:c 


T 

3£j 
:mr 

BHI 
MOV 

XFRSET 

R T I 

;£MT sue ro SET UP BUFFER 

mi 0 * ^ or 


•3-7.RN0KFA 
RNDXf A 
rnoxff 

R40XFA.8FSIZE 

RNOXFF 

RNDXPA, XFRCNT 


;i£T RAND! 
NUMBER I! 


)M NUMBE 
5 STORE* 


HERE. 
NOT BE 0. 


WM 1 . 

COMPARE NUMBER AGAINST BUFFER SIZE 
IF k ARG£R, GET ANOTHER NUMBER. 
NUMBER to XFRCNT. 
j PERFORM BUFFER ANO BLOCK SETUP 


MOV WBPLIM.U™ 

SU8 XFRCNT UAI 

SUB XFRCNT, 

MOV RBFLIM, 

SUB XFRCNT, Ri 

SUB XFRCNT , Ri 

MOV XFRCNT , VRBLKN 

curb vrblkn 

SWAB VRBLKN 

MOV *1 102. VFBLKN 

S'JB VRBLK&, VFBLKN 

DEC VRBLKN 

AT I 


•EXIT 

AOpRES&ES AND FWD AND REV BLOCK NUMBERS 


R COUNT. 

; COMPUTE WRITE AOORESS. 


; COMPUTE RE AO ADDRESS. 


, COMPUTE NUMBER OF BL 
; AND FWu MAX AND REV 


ocks reg^ire:, 

MIN BLOC v NLMcJE R : 


; MAX FWD BLOCK 
; MIN REV BLOC*' 
; EXI T , 


:EMT SUB TO FILL WRITE BUFFER WltH NUMBER 
6RVFLL : 5AV05S 

WADDR.RO 
unitn.ri 

XFRCNt , R3 

R 1 , >0)4 
P3 

DRv c lA 


)F DRIVE UNDER TE: 


DRVFLA: 


MOV 
MOV 
MOV 
MOV 
DEC 

|ne 

RST055 
RTI 


R0FB8A: 


; E v I T . 

.EMT Sue TO SELECT RANDOM FORWARD BLOCK NUMBER. 
kr.ZF 88: RNDNUM ; GET RANOOM NUMBER. 

; NUMBER IS STORED HERE. 

RDFB8A, VFBLKN ; NUMBER MUST NOT BE LARGER THAN VFBLKN. 
RNDFBB ;BR IF LARGER. SET ANOTHER NUMBER. 

ROFBBA. BLKRQ ;NEW BLOCK NUMBER TO BLKRG . 

blkro.Blkrqs 

T RANOOM REVERSE BLOCK NUMBER. 

; GET RANOOM NUMBER. 

; NUMBER IS STORED HERE. 

; NUMBER MUST NOT BE SMALLER THAN 
;BR IF SMALLER. GET ANOTHER NUMBER. 

; b^ M ?Pla^er N 0T ExcEED 1101 - 

•new BLOCK NUME'R to BlKRG. 


OPEN 
r MP 
BHI 
MOV 
MOV 
RTI 

:EMT SUB TO SELE 
ftNORBB: RNGNUM 
RDRB8A: OPEN 
CMP 
BHI 
CMP 
BHI 
MOV 
MOV 
RTI 


VRBLKN, RDRBBA 


vkock™, 

RNDRBB 
R0RB8A , i 1 1 0 1 
RNORBB 

RDRBBA.BlKRQ 

blkrq.&lkrqs 


.EXIT. 


; EMT SUB TO FILL WRITE 8UFFER WltH RANDOM DATA. 
&N0FLL: 5AV05S 

MOV WADDR.RO : GET STARTING ADDR. 



LOi 


TC5 

to:. * £ ST 

c 

MACY11 

30 i 10*8 

OZ’CE 0 

.PlI 31 

-HUG -77 

1* : 08 



*2**70 

JU*c'7* 

C.O.-3. 

;3 *g.s 

17*812 


::ls 

,159 

, 

A A O J 

, (51 

* *9^ 
A A t>3 

00*275 

o 5 *jqq 

00*30* 

00*31? 

SffS 

005301 

3013’? 

10*03? 

0000)38 

1 / / / •- c 


1 18* 

00*3 1 * 

0i7?6? 

17**8* 

17*588 

.185 

00*382 

00*330 

01775? 

1?**80 

17*518 

. . 88 

01 ’78? 

17**5* 

17*518 

.18? 

00*338 

01 ’78? 

17**52 

17*508 

1188 

1.89 

00*3** 

00*358 

01778? 

000008 

17***2 

17*50* 


■5 * 

+ > 

1 -I 
? ? 

* .4 


.’0 

. * . 

» -*■* - v 
.i ■ c 

'“'3 

*4 

5 
8 


: i "9 
1 * ?9 

x i so 

. , S' i 
*,88 
A 183 

ne* 

ass 

i * £**£ 

44 * 

.. 8 ? 
: .88 
1183 
,130 
1 i^l 
1138 
1,93 
1.9* 
1195 
i:°b 
1197 
- 196 
1199 
1800 
.801 
1808 
1803 
180* 
1806 

1807 

1808 

1809 

1810 


00*35* 
00*380 
00*368 
00*37* 
00**08 
CO** 1 0 
00** 1 8 
00**80 
00**88 
00 ** 8 * 
00**88 
00**30 
00** 38 
00**3* 
00**38 
00***0 
00***8 
00** *8 

00**60 

00**58 

00**60 

00**88 

00**88 

00**70 

00**78 

00**7* 

00**78 

oo*soo 

> 0 * 



>10 
00*518 
00*51* 

®|i§ 

00*528 


3GS087 

018787 

057887 

018777 

038777 

001 * 1 * 

038767 

001*10 

000003 

10 * 08 * 

10*018 


r 73 S 
0075,1 
17777? 
10*000 
088718 
000002 

0*8777 

000008 

00*0003 

00577? 

100 * 0 * 

005725 

00572S 


00577? 

100772 

10 * 02 * 

10*012 

010003 

007581 

007511 

17777? 

00078* 


17*512 

17*500 

m 

100200 


000 G 02 

000118 

17*320 

17*300 


17*50* 

17**78 

17**0* 

17*378 


G00001 17**52 


17*330 


31-AUG- 


RNOFLA: 

RNDFlB: 


14; 1 i. PAGE 2* 


*3/ 

RNDNUM 

OPEN 

MQV 

DEC 

9NE 

PSTOSS 

RTI 


XFRCNT.R1 


RN0FL3. lO i ♦ 
Rl 

RNDFLA 


:t COUNT. 

:t random number, 


; NUMBER IS STORED *£RE 
STORE number awa>. 

mi 


NOT DONE. 


:EMT SUB TO 
STATS: MOV 

MOV 
MOV 
MOV 
MOV 

rt; 

:EMT SUB TO 
STCOM: CLR 

10V 
91 5 
MOV 
BIT 

aeo 

BIT 

aeo 

SAV5S 

STATUS 

ERRORN 

FPCMSG 

STCMSG 

STAT 


SAVE TCCM. TCST, 
JTCST.TCSTT 
3TCCM, TCCMT 
3TCWC TCWCT 
~TCDT , TCDTT 
TCBA, TC8AT 


. exit 

TCOt Tc^C. TCBA. 

; Save test. 

;|AV£ TCCM. 

.SAVE TCWC. 

;SAVE TOOT. 

; SAVE TCBA. 

: EXIT EMT SUB. 

ISSUE OT COMMANO SPECIFIED AT CALL+8. 

COMNO ; CLEAR PREVIOUS COMMANO 

UNIT, COMN0 ; UNIT « TO COMND. 

3(8). COMNO ; SET OESIREO COMMAND IN COMND. 

C0MN&.3TCCH 'ISSUE COMMAND. 

•§IT1§!BIT7,3TCC( 5 ! : READY AND ERROR BIT CLEAR 

;8R IF YES. 

WAS THE ^0 BIT SET IN COMND 1 


STCOMB 

!< 


•B I TO. COMND 
sTCOmO 


;BR IF NO" 


; SAVE STATUS 
; ERROR. DO I 


it failed to cause Clearing 


■i 


; OF REAOY ANO/OR ERROR BITES'. CR I^C. 

; BLOCK MISS, OR DATA MISS ERROR OLCJrPeI 


STCOMB: 


•2, (8 


SCOPE 
ADD 
RTI 

; EMT SUB TO STOP 
STPDT: BIG • 

n t f 

: EMT SUB TO CHECK FOR DEC TAPE ERPOR OR END ZOf> c 
lKERZ: coucc 


ALL DECTAPES. 
U18.3TCCM 


; SET UP RETURN. 

: EXIT STCOM SUB. 

.ISSUE SAT COMMAND. 
EXIT EMT SUB. 


tKI 

OKI 


mi 

:r! 


CKERZC: 

CKERZD: 


SAV5S 

TST 

BMI 

TS T 

TST 

RST5S 

RTI 

TST 

BMI 

STATUS 
ERRORN 
FPCMSG 
DTFRP 
STAT 
-1 
8 R 


3TCCM 
CKERZC 
(5) ♦ 
C5) + 


3TCST 

CKERZA 


; ERROR BIT SET 
;8R IF YES. 

•NO. SE T UP OX 


; EXIT EMT SUB. 
;ENDZ BIT SET’ 
;3R IF YES. 

; DEO APE ERROR. 


ex: 


CKERZB 


00*52* ooooc; 


; EMT SUB” TO HANDLE”FAli URE 
NOINTR: SAV 5 S 


TO INTERRUPT. 





TC5 

02 


'..ro 


tc. 

pi 


*t *.T S 

31 


»S02 


*4k 'tpfL -A »*» 

12 1 3 

-2 ** 
■ 3 ! C 


*?*s 

:.2a 

~c.e dos** 



* 

i< 

1221 

1222 

:223 
130 
1225 
130 
122? 
120 
120 
■ MO 
1221 
1232 
.'233 
12^h 
i 70S 
1238 

125? 
1238 
J J9 
, .HO 
.. 2*1 
102 
12' 3 
A2-*h 
12HS 

ii» 

12H8 

1« ; 0 
« - i 

% ‘ , * I 

1 

A W 

m 

18 

.‘SO 
.28! 
1282 
1283 
120 
120 
1 20b 



0QH8H2 

OOHfj% 

a,-** so 
*> 

3 


20 

.ft? 



cr 


*•> ?g 

OO'C 32 

SjF? 

ir* t 
8 . 



Cl 3003 

*2 

:su 


00HS48 

aossa 

00*552 
iS* 
iSS 

jO*S 4 2 
00*S 7b 


00003s 

00*0002 

OOoOOO 

000000 

OOOOOO 


,127b' 

0127b? 

OOSOfe? 

0*00 * * H 

Cl 27b? 

OOOHOS 
Cl 27b? 

Olb/C'O 
OlbVOi 
0057b? 
00 J ‘50b 
Obfo/Ol 
0b870l 


.70c 
012-87 
01b • 

01 : 

01 ( io? 

02b "t? 
D* -.HO 



. 013 
jV*mS 52 
‘ " T 1. 


' 


ooaoCw 

i r,t’n * i 

r* 1 1 

\/0? / 

0000. 

lOHOic' 

"B 

f **' #*>**•** 

A / > ' • * 

005303 
CO 1 HOI 


N8CV11 30a0Hb 
1H : 08 


00108b 

17^0 

W? 1 


mi 

1?H2S? 
17 25< 
17^700 

17H232 
17H228 
r 00002 
•H2r 
0001 
.2ib 

’8HH 

f ’ : 

« . •> 


!7h; 

000c 


32 


777 1 


177&5; 
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FPCMSG 


iTAT 

-1 

RST5S 
RTI 

MT SUB TO CHECK EXPECTED DATA 


oEunQ: 

DATKN?; 

EXPOAT: 

ACTOAT; 

DTCKSS: 


DTCKI 


000)50 OATCK: 
DATCKK; 


DATCKA; 


DATcKB: 


177b3H DA CK< 


OPEN 

OPEN 

MOV 

MOV 

CLR 

8R 

MOV 

MOV 

BR 

MOV 

CIR 

SAVOSS 
MOV 
MOV 
1 ST 

Hl)li 

ADD 

sys 

► 0 

MOV 

MOV 

■ Jv 

MOV 

CMP 

*&* 

" hTkn r 
AUOCNT 
H 

OACNV 

EXP0A T 

AOATSB 

b 

OACNV 

a:tdat 

ADAT AS 

: RPQRN 
P0M5G 

fw’ppb 


9£i 


•unitn.waoqr 

■02 I 02 1 , DATCKE 
OAT {nO 
DATCKK 

•0220H1. DATCKE 
•-i.OATiNO 

DATCKK 

•022021 , DATCKE 
DAT I NO 

WAODR.RO 
RAOOR. Rl 

datin6 

DATCKA 

XPRCNT.Ri 

XFRCNT.Rl 

X^ftCNT , R£ 
il.OATKNT 
EPftLlM.R3 
. 0 ) . exAdat 

( 1 ) . ACTOAT 
exp6at, actdat 
datckd 




IN’ERRUF 


«3 

CiA T ;i * 


aEaInS^AC^uSl DATA AND REPORT ERROR'! 
; CURRENT WORD NUMBER. 

.UNIT number addr tc aaddr 
jPREVEN* INCREMENT Of S B ADDR. 

; INDICATE DECREMENT OF ACT CA’A 

; INDICATE INCREMENT op ACT DAT* 


;-£T EXP DATA AO OR. 

; GET AC T DATA ADDR. 

; CHECK FOR ACT DATA DECREME V . 

;3R IF NO DECREMENT REQUIRED 
; YES , COMPUTE UPPER LIMIT OP AC T DATA 


; C*£T ■ OP WORDS TO CHECK . 

; S£T CURRENT WORD * TC 1. 

;ERR LIMIT TO ERROR COUNTER. 

; GET |XP DATA WORO. 

! fccr 5rr ftnyc Jnpn 

* compare act data and exp da t a 

;8R IF NOT SAME, 

; DATA NO. SAME, CONVERT WORD ■ 


, C ON VERI EXP DATA t C ASCI 


CONVERT AC T DA’A to A$ v I 


; ? VP£ DATA ERROR MESSAGE 


; N T M ERROR' 
;0R IP >E5. 


* K w *" * 1 Oi , 






MAO 11 30 iCNfe 

J '» <u 


1M:08 


ct’ 

1??cs;h 

Ok * 0 

nop 


0 'Kf 

;ytP 


DA' " 


QC’ 

So? 


DATtKH 

00b 

S00 


. £M? s 

CLEARS 

SOI 

o?o 

¥»s 

00’ 

00? 

00b 


S- 

6*Nf L L 

^5o 

1 ’'■•OS* 


’01 

l^MOHfc 




8 1 Nf 

S§o 


BINFlB 












r 




C 03 


*. #» 

*> A 


TST ! 

31 


H0-, 


MAC Vi 1 
1M ‘ 


Tni J 

* 06 


3Ci lOHfe > 3l-AuG- 
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,'C"U4$-» 



iJS3b~ 00002 s * 
' " > “*Q 



SRCPVC : 


oeca 

ir US 


R£VCNT 

SRCCON 


10*4000 

as 


vk% >- 

DOSS . 4 

4'"* '«* 


1399 

1*00 

1HQ1 

1*402 

1*403 

:*Q* 

1*05 

1*4% 

1H07 

1*408 

1*409 

1*410 



1? 327*4 
000100 


000062 

1732Mb 


FPCNSG 

w* 

-1 

SCOPE 
•VCNT: . 8Y?£ 

RIND: .BYTE 
iNT SU8S TO WOA 
<DFR: NOV 

NOV 
ASc 


; FIFTH REVERSAL 
; BR IF NOT. 

;Y£S ERROR 


ISSUED" 
SAVE STATUS. 


mi 


NOT found within s tape 


VERSAlS 


WROFRA: 


WR0FR8: 


iOMM( 

. 0*4*430 
* 0*4*400 


D0SS7Q 


10*4*400 
1 0*4*400 
10*4-4: 
iw 


AQQ 

OPEN 

NOV 

SET CON 
OPEN 
DELAY 
delay 
:lay 
:lay 
!lay 
:lay 

'LAY 

5 WJ 


1*412 I 

OOSSOO 

02262b 



WRDFRC: 

P0PSP2 

P0PSP2 

TST 

:hi3 ; 

1 4* 1 *4 , 

§gH3^ 

g£26% 
dost? < 

173176 



1*415 i 

0056 10 

100003 




BPL 

141b i 

DOSoia 

lO*4Q2b 




CKERR2 

1 *4 1 ** : 

DOSolM 

10*4000 




SCOPE 

1*4 18 ! 

D0S616 

0002*40 




NCR 

1*419 \ 

305620 

1CM036 



WRDFRF : 

CKWCBA 

1*420 ! 

1M2I ] 
1*422 I 
1*423 ! 

1M2M | 

_*42S i 

005630 

305636 

3056*4*4 

012767 

016777 

012767 

Q0C115 

1732*46 

10H030 

1777 1*4 

1731M6 

177666 

WRDFRG: 

WROFRE: 

WDATF: 

OPEN 

NOP 

RTI 

NOV 

NOV 

NOV 

lM2fc 1 

;m?7 < 

gHiw 

0007 IS 
012767 

0001 OS 

177670 

ROATF: 

BR 

NOV 

1*428 I 
1*429 ! 

1M30 1 

§§| 

0^77 

17322M 

10M030 

i mi 


NOV 

& 

1M31 | 

305700 

012767 

00M115 

1776MM 

WDATR: 

NOV 

1*432 ! 

Bl?* 

305722 

016777 

173176 

173076 

177616 


NOV 

NOV 

1 4 UJ ! 

012767 

10MQ31 


1*43*4 ! 

000671 




BP 



ifc 

jfcB&.WROFRG 

•WRDFRC, 3TCVTR 


T AND 

TO UR 


T IN 
RG. 


:wc 


?nMJ 

J^HF 

wSVt^fSr 0 ' 



FORM 

C8A*FINAL TCBh CONTENDS 

All GOES mere. 

CTOR TO WRDFRC. 

’ TA. 


3TCCN 

WRDFRF 


r AIi.URE TO INTERRUPT. 

MERE WHEN INTERRUPT OCCUR: 


ERROR BIT SET’ 

8R IF NOT. 

CHECK FOR ERRORS. 

ERROR RETURN. 

NO 2 RETURN. 

HECK WORD COUNT AND CURRENT ADDR . 
CBA SHOULD EQUAL THIS. 




EXIT. 

SWDATA ! FWO ! I E ! DO . WRDFR8 
WADDR.aTCBA 
•SRO# . WROFRA 
URD'FR 

•RDAT A ! FWD f I E f DO , WRDFRB 

•|8^?W&8fRm 1 

iUOATA • RE V ! I E ! DO , WRDF RB 
WADDR.STpBA 
iSRCHH. WROFRA 
URDFR 




SEC 


,28 


i 


D03 


o zfcrj.p, 


“i ST c 

31 • AJ. 




vV 3 ' w 4 ± ' a 

DOs**** 0006 5 


.**•■*3 

.~-* c . 


„hSO 

14$: 

1*453 

i*4$4 

1H§S 

1*456 

1HS? 

13H 

1*450 

1462 

IHt»3 

14&4 

;h65 

i-^bfc 

IHfc? 

1*468 

1469 

14?Q 

1471 

1472 

1473 
J474 

1475 

1476 
1*477 
1478 

147-9 

1*490 
1 *48 1 

1404 

1*495 


UD?»UcU 

306324 


3060*40 

aobCN? 

006CM4 


OObOSO 

006063 

306062 

006064 


006102 

006106 

ooe:i 2 


006124 

38S1SS 

006132 

◦06136 

006144 

006 ISC 


nQS7b3 , 3<3QP 

55s ~S2 30S067 

OCS^Sb ClO'OQ 

XS762 30S267 

0057bb 

DOS 7*^ 10*0*6 


•mt 

OQS300 
00136*4 
I 0H003 
000237 


006006 
DC 63 - 3 
306312 

00631*4 


OOS267 

0*2767 

13*40*46 

000003 

000*402 

&8y 

00S300 

00136*4 

lpHHOC 

10*4003 

000207 

000000 

006236 


01 2730 
004767 
004767 
OOS267 
0*42767 


0004*41 

im 

012701 

016767 

00S267 

0*42767 


MAC Yil 
1*4 : 08 

io3ifi 


73102 


0000 10 
000013 
177770 


OOQ31C 

177946 

177710 

OOQQIO 

177770 


000007 

177760 

000010 


30 1 1 0*46 't 31 -AUG- 


ROATR: 


000002 


100002 


000002 


000014 
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•RDATA* REV ! I E ! DO . WRDFRB 

: 


jSUB TO REWINO AVAILABLE TRANSPORTS. 
MRWiNO: 5AV03 


hwwa nu: >hvuj 

clr 

NOV 

NRWNOA: INC 

BIC 

SELDRV 

MRWNDB: OPEN 

§R 

SRCHfi 
STOPDT 
NRWNDC: DEC 

lsfo3 

RTS 


BlKRO 

2m. 


NRWNOB 


NRWNDC 


RQ 

NRWNOA 


; SET UP TO REWIND 8 TRANSPORTS . 

;S£,£CT TRANSPORT. 

; TRANSPORT NUMBER. 

; TRANSPORT NOT AVAILABLE RETURN. 

; SEARCH FOR REVERSE BLOCK 0 ON 
; SELECTED DRIVE. AND STOP DEC TAPE 
; DONE 8 TRANSPORTS’ 

;8R IF NOT. 


*88: T0 
NFWDA: 


NFWDB; 


NFWOC : 


GET AVAILABLE TRANSPORTS NOVlNG FORWARD. 

SAVQ3 

NOV »8..R0 ; SET UP TO NOVE 8 TRANSPORTS. 

INC NFWOB 

QIC *177770, NF WDe 

StLDRV ; SELECT TRANSPOF 

OPEN ; TRANSPORT NUN8E 

9R NFWDC ; TRANSPORT NOT A 


SETCON 

RNUM! Fl 


DELAY 

RST03 

RTS 


RC 

NFWDA 


; SELECT TRANSPORT. 

; TRANSPORT NUMBER . 

; TRANSPORT NOT AVAILABLE RETURN. 
; ISSUE RNUM! F WO COMMAND. 

: DONE 8 TRANSPORTS’ 

;8R IF NOT. 

; WAIT . 

: EXIT. 


; t«tt*t*t»*t*»«»*4*»*»*ttl******#»*t»*«»«IH*»*«m***t*t*****«*t««»ftJ 

tO: 0 ; ROUTINE NUMBER 0 


ROUTINE NUMBER 0 
ADORES* Of NEXT ROUTINE 
TEST ITERATION COUNT 


CA -SCOPE ENTRY POINT 

»***»«•»*»*#*»«**«**»«#****»**»>«*»»»»*«««»***•#**•***•***«*»»*****» 
SST COMMAND TEST. CHECK THAT ISSUING SST TO A SPECIFIC TRANSPORT DOE 
RESULT IN SOME OTHER TRANSPORT STOPPING ALSO. 


MOV 

JSR 

JSR 

INC 

BIC 

SELDRV 

OPEN 

8P 

SETCOM 

SS^ 

MOV 

MOV 

INC 

BIC 


*8. .RQ 
PC , I*1RWIND 
PC . MFWD 

CC 

*177770, CC 


*7.R1 
CC . CD 
CD 

•17777Q. 


SET LP TO TEST 8 TAPES. 
REWIND ALL TAPES. 

GET ALL TAPES MOVING FORWARI 


SELECT TRANSPORT. 

TRANSPORT NUMBER 

TRANSPORT NOT AVAILABLE RETURN. 

STOP SELECTED TRANSPORT. 


i SET UP TO CHECK OTHER 
MOVE * OF UNIT JUST SI 


7 TRANSPORTS. 
OPPEE AND INCRE? 


mm 



r C5 


TC . . 


0 2tC£D.P. 



:so3 

'SCN 

isas 
,505 
,SC~ 
1508 
:508 
.5*3 
- si i 
15*2 
15.3 
151"* 
15.5 


IS. 
* 5 J 


.to 


151 9 
1523 

1521 

1522 

1523 
1S2H 
1525 
1525 

1527 

1528 
1528 

1530 

1531 

1532 

1533 

1534 

1535 
153b 

1537 

1538 
1538 
i5*+C 
15*+ i 
1542 
15*+ 3 
15*+*+ 
15-+5 
l5*+fe 


:st 5 

3 1 *hJj 

saS&8 

300*20 

1O+H00 

T-r-r 


0052 . 2 
30521** 
D0b2 1 b 
005223 
22 



00523*4 


005235 
0052*+ 0 
3052 -+2 
3052*+*+ 


3052*45 

3062S*+ 

00525b 

005252 

0052bb 

005270 

005272 

00527m 

005300 

00530M 

005305 

005310 

00531*+ 

005322 


005332 

00533*+ 

00533b 

00b340 

00b3H£ 

OOb3H4 

00b3Mb 


Cl. 
300001 
1 OHO 1 2 
C i 00b *+ 
007511 

DOS 331 
0013Mb 
005300 
001321 
10*4000 

000001 
30b 3 "“b 
0000 Q 1 

30524b 


31275? 

IDMQSO 

005057 

012700 

lOMOMb 

oooooo 

Q00*+D2 
00M7S7 
005257 
005300 
001357 
01 2700 
012757 
005257 
i0*+055 
10M03*+ 


104025 
1 04054 

00530C 

0C137C 

104000 

104053 

C127C1 


000005 

000010 


000044 

1777&4 


000024 

17777? 172535 

172S32 


E03 


MAC YU 30 i 1Q45 
14:08 


31 -AUG-' 
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1EG 3333 


m 

8R 


DRv 


00020C 172504 


C£ 


[NH’RNUMfFWD 

delay 




C£ : 
CF; 


JIT 

STATUS 
QACNV 

SCEMSG 

ERRORN 

CEMSG 

3?AT 

^ t 

DEC 

8N£ 

OEC 

BNE 

SCOPE 


$ 

wt 


IT7.2TCST 


TRANSPORT NOT AVAILABLE RETURN. 
SELECT TRANSPORT with DINH BI t SE' 


; WAI T 

; UPS BIT 
;§R i" Y 
; SAVE ST 
: CONVERT 



OF UNIT STOPPED 


IDA 


a 


; S5T TO SPECIFIC UNI T RESUL T EI 

: also stopping. 


TESTED 7 UNITS'* 

8R IF NOT. 

STOP TESTED ALL UNITS' 
3R IF NOT. 

YES. SCOPE. 


Mb.. 


IN ANOTHER 


*»*•***♦**♦***♦*****♦**#********»***####*##**♦#**•*♦***♦*♦#*»**♦*#♦♦♦♦♦♦ 

!■ 1 • RfKlTTNT NiIMftPR ! « 

* 
* 

* 


T2 

t 

i 

AA 


ROUTINE NUMBER 1 
AQQRESS OF NEXT ROUTINE 
TEST ITERATION COUNT 
SCOPE ENTRY POINT 


**«ft**ft»ft*ftft#**« 


« **«*»•»• **«**« 4»*«*»**»»«* •*»»*•»*•* 


f*ft****ft*ft*ftft*«*«ftft 


; SELECTION TEST. WRITE EACH UNIT'S TAPE WITH THE UNIT'S NUMBER. THEN. 


0C04QC 172532 &A: 


SEQUENTIALLY READ DATA FROM EACH UNIT. DATA READ SHOU-D match' UNIT'S NUMBER. 

;S£T UP 255 WORD TRANSFER. 


AB: 

AC: 


AC: 


mu: 


303324 


HC 


MOV 
XFRSET 

CLR 

MOV 

SELDRV 

OPEN 

BR 

JSR 

INC 

DEC 

BNE 

MOV 

MOV 

INC 

SEQDRV 

RDA T AF 


STOPDT 

DA T CK£ 

DEC 

BNE 

SCOPE 

DRvFIl 

MOV 


•255. .XFRCNT 

AC 

•8. .RC 


hG 

PC . AK 
AC 

RC 

A8 

•2C. .RC 
»-l .BLKRG 
BLKRG 


RC 

AG 


•20. .R1 


SELECT DRIVE. 

NUMBER OF DRIVE TO BE SELECTED. 

UNIT NOT AVAILABLE RETURN. 

AVAILABLE. GO WRITE TAPE. 

ALL UNITS AVAILABLE WRITTEN'* 

BR IF NOT 

SET UP TO READ 20 BLOCKS. 

STARTING WITH 8L0CK 0. 

SELECT SEQUENTIAL TRANSPORT 
CALL RDATAF SUB TO READ FWO THE NUMBER Of 
SET IN LOC XFRCNT. INTO ADDR SE" IN LOC 
RAODR AND ABOVE. 

STOP DEC TAPE. 

CALL DATCKS SUB TO CHECK DATA SPECIFIED 1 

AGAINST THE DATA WORD IN LOC UNI"N. 

DONE 20 TIMES'* 

BR IF NOT. 

DONE. SCOPE. 

FILL WRITE BUFFER WITH SE.EC’EC UM"'5 N. 
SET UP TC WRITE 2C BLOCKS. 


RAC n C? 


Jt Q 


TC5 -• 
dz^ce; 


TCI. 
■ .pi: 


' £5 r £ 

31 -AUG- 


MAC V 1 1 

14:08 


F03 


3C104f,, 31-AUS-7? 1*1:11 PSGE31 


#.fc, ‘‘S 



-|>9 

*$5i 

1*52 

.553 

1554 

;5SS 

1556 
1 55** 

isse 

1559 
1 5b 3 
iSfc 1 
1552 
1 Sb3 
iS6~» 
ljb5 

if 66 
156? 
1558 

fl^ 

152; 

i C72 

Is"2 

IS"'-* 

1525 

1525 

15~7 

1529 

1529 

1590 
1581 
1588 
1583 
158*-* 
1585 
158b 
ise7 

1588 

1589 
159C 

1591 

1592 
.593 

1594 

1595 
I59fe 
159? 

1598 

1599 
160C 
1601 
1 502 


005385 



005328 
005 400 
005HQ2 
005404 


005405 

>414 
>418 
005420 
005425 


008434 

00844= 


008450 

005452 

008454 

008455 


006 48C 

008485 

006470 

008472 

005500 

905502 

005504 


006506 

005514 


306515 


01276? I????? 

172>m**u 

I04f ‘ ■ 


005301 
13?, 


066?6? 
1 04Q35 


0064HM i 0H042 


008446 1 04000 


000003 

006522 

000144 

006472 


Q12?b? 
104050 
104052 
015767 
1 0404 C 
104056 
104033 


172500 


000002 

006450 

000144 

006420 


01276? 0C140C 172472 

104050 
104051 
01676? 

104040 

if 


’2456 


A / 


2415 


00 1400 17242Q 


l <i 


16676? 1724Q4 

10403^ 




172344 


AL: 


40V 


INC 

WDATAF 


•-1.BLKRQ 

QLKfta 


starting with bloc*- 


CAL*. WDW’AF SOB to 
$E T ;n lqc.xfrcnt, 


WRITE Fwc T h£ • jF wl&OS 
STARTING from hDOF S£ t 


HTTEN’ 


i ! N x 5c WAOOR 

OEC Ri ; 20 BLOCKS UR 

>^ F Qf$TAPE. 

RTS PC -EXIT. 

; ♦#**#########♦######################&## ##########♦#### #»•#*»#*#»«####*♦* 

t2: 2 ; ROUTINE NUMBER ? 

T3 ; ADDRESS OF NEXT ROUTINE * 

:Q0. ; TEST ITERATION CQUN t 

DA SCOPE ENTRY POINT ♦ 

; ***########*##*#*»#•###♦#########«»##**•##»«' a#####**#*#*##*#####** **♦♦♦♦ 

; SEQUENTIAL UNIT .RANDOM BLOCK, 3 BLOCK TRANSFERS, FWD WRITE, REV REAL. 

: BINARY COUNT PATTERN 

40 V f?68. , XFRCNT ;S£T UP ?b8 WORD TRANSFER. 


*2436 172432 DA: 


XFRSET 

«DF§K 


*768. .XFRCNT 


BLKRQS.BLKRG 


vrblkn. blkrq 


RANDOM FWO BLOCK NUMBER. 

RESTORE BLKRQ CONTENTS. 

BINARY FILL WRITE BUFFER. 

SELECT SEQUENTIAL TRANSPORT. 

WALL WDATAF SUB TO WRITE FwD THE • OF WORDS 
SET IN LOC XFRCNT. STARTING FROM ADDP SE" 

IN LOC WAOOR - 

CHANGE 3LK NUN TO READ DATA IN REV 
CALL ROATAR SUB to READ REV THE * OF WORDS 
SET IN LOC XFRCNT, INTO AODR SET IN LOC 
RAOOR AND ABOVE. 

CALL DATCKI TO CHECK DATA SPECIFIED BY _0C 
WADOR AGAINST DATA SPECIFIED By LOC RADDP *2*YFPC 
.READ DATA IS CHECKED IN DESCENDING ORDER . 

SCOPE . 

*»»*****»**»»******#»***•*»*#**#«#*»•*»#»»»#**«»••*#«*#*#**»**»*#*#*•«*-» 

T 3 : 3 ; ROUTINE NUMBER 3 * 

T4 ; ADDRESS OF NEX T ROUTINE * 

100. ; TEST ITERATION COUNT * 

EA : SCOPE ENTRY POINT * 

• *•***»«*»»*** ***#»**ft*#»*«*****4**ft***ft*»ft#»t*****ft »»«*«****»***** *»*»»* 


RNC 
MOV 
BINFIL 


ADC 

ROATAR 


DATCKI 


SCOPE 


: SEQUENTIAL UNIT. RANDOM BLOCK 
: BINARY COUNT PATTERN. 


72384 172360 EA: 


MOV 

XFRSET 
RNORBK 
MOV 

BINFIL 

SEQDRV 

WDATAR 


SUB 

RDATAF 


•768. . XFRCNT 


BLKROS. Blkrq 


vrblkn. Blkrq 


3 BLOCK TRANSFERS. REV WRITE. FWD READ, 

; SET 768 WORD TRANSFER. 

RANDOM REV BLOCK NUMBER. 

RESTORE BLKRQ CONTENTS. 

BINARY FILL WRITE BUFFER 


DAI 



the number 0 

SET IN lOC 

UAOOR AND ABOVE. 

CHANGE 8LK NUM TO READ DATA FWD- 
CALL RDATAF SUB TO READ FWD THE NUMBER OF 
SET IN lOC XFRCNT. INTO ADOR SET in lOC 
RADDR AND ABOVE. 

CALL DATCKI TO CHECK DATA SPECIFIED 3- _ 1 


F WORD 



( TC5 - T C, 

| d rT:e:;.p; 

! It 3^ 


TST c 
31-AuG- 


laOS 

i t>MO 

i dlP 
Ib33 
nb09 

I S * 3 

* ‘ W * A 

ib*2 
ibi3 
1 §» 1 4 
lb 15 
Ibib 
;si" 
i & i a 

lb* 9 
IbPQ 
i£>s; 

i&fs 

iais 
1626 
lb?" 
1629 
i 629 
163G 
1 63 1 
1632 
1933 
163*4 
1935 

1636 

1637 

1638 
:b39 
16HQ 
lb*4i 
lbH2 
16H3 

i 3*4*4 

IbHS 

ib-4b 

lb*47 

1SH8 

1649 

1650 

» t.c, •, 

i&52 

1652 

ibSH 

1655 

lbSb 

165? 

ibse 


006S20 

306S22 

306S30 


(HO 
006SH2 
OObSHH 
D06SS2 
OObSSH 
006SS6 


OObSbO 

QObSfefe 


00b57H 

006576 

OObbOO 

006602 


DObbOH 

006612 

QOSSIW 

DObbib 

30bb2M 

306626 

OOfcb3C 


306632 

OOfebHO 


OObfeHH 

33fcbHt 

0066-53 


13*4003 

OOOOOH 
»57h 
11HH 
OObSHH 


0i27b7 

10H050 

IQMOS1 

01b?b? 

13H0SS 

lOHOSb 

10*4032 


Obb?b? 

10H03S 


30b5?0 10H0H2 


D3b5?2 13-433: 


300005 

OObbHb 

00C1H4 

OObblb 


0127b? 
10*4050 
1CH0S2 
0lb7b? 
10*4055 
1 0*4056 
i 0*4033 


16676? 

10403*4 


00bbH2 1QH0H2 


10H030 

03003b 

006724 


G03 


MAC Vi 1 
1*4:08 


3£M0Hfe) 31-AUG-77 IH:H PAGE 32 


SCOPE 


iE 'S 


; wAQDR AGAINST DATA SPECIFIED BY uOC RADDP 
; READ DA?A I 5 CHECKED IN DESCENDING ORDER . 


.'£ & ' 


; SCOPE . 


00 i HOC 
172312 


l?23Hb 


k. } JVWf h* • 

• ******* #**##4 • #»***•*»•#**##***«*#«*»•<»*# t #*#*#*####**#####*#*###♦# ****** 

tH: H ; ROUTINE NUMBER H * 

T S ; ^QORCSS OF .NEXT ROUTINE * 

100. ’EST ITERATION COUNT * 

FA : SCOPE ENTRY POINT * 

: #*##*##**#*##**##*#*##**#*###*##***»**##**#*»#*###*##*##*#*#*#*###**##*♦ 
; SEQUENTIAL UNIT. RANDOM BLOCK. 3 BLOCK T RANSPERS, FWD WRITE. REV READ. 

: RANOOM DATA. 

; SET UP 768 WORD TRANSFER. 


17230b FA 


MOV 
XFRSET 
RN0F8K 

MOV 

RNDFIL 


•768. , XFRCNT 


i“2332 172272 


RANOOM FWD BLOCK NUMBER 
RESTORE BlKRQ CONTENTS. 

RANOOM FILL WRITE BUFFER 
SELECT SEQUENTIAL TRANSPORT. 

CALL WOATAF SUB TO WRITE FWD the « OF WORDS 
SET IN LOC XFRCNT, STARTING FROM ADDP SET 
IN LOC WAODR. 

CHANGE 0i K NUf- TO READ IN REV. 

&MIWMV M 

RADDR AfC ABOVE. 

CAlL DATCKI TO CHECK DATA SPECIFIED S’ LOC 
WAODR AGAINST DATA SPECIFIED BY LOC RADDR *2 
RE AO DATA IS CHECKED IN DESCENDING ORDER, 

SCOPE 

t«t«»*«*»*«*tt***t*»tt**t»«*m«***t»t#i*«****t»»»«»t*t«**M»*t*****4*f» 


r AF 


ADD 

RDATAR 


DATCKI 


BLKRQS.BLKRQ 


vrblkn.blkrq 


* P 2 n " 


tS: 


001 HOC 
1722HD 


172274 


; ROUTINE NUMBER S 
; ADDRESS OF NEXT ROUTINE 
TEST ITERATION COUNT 
.SCOPE ENTRY POINT 

• t**i*m»*«»********t»ittt«*itit***«**«iH#H*tt*(**i****«t«t**tt«4»*ttt 

; SEQUENTIAL UNIT. RANDOM BLOCK. 3 BLOCK TRANSFERS. REV WRI^E. FWD READ. 

: RANDOM DATA. 

~ “ ; SET UP 768 WORD TRANSFER. 


5 

Tb 

100 . 

GA 


17223H GA: 


MOV 
XFRSET 
RNDRBK 
MOV 

RNDFIL 

SEQDPV 

WDATAP 


•768. .XFRCNT 


BLKRQS.BLKRQ 


172263 172220 


SUB 

RDATAF 


DA T CK'I 


SCOPE 


VRBLKN. BLKRG 


RANOOM R£V BLOCK NUMBER. 

RESTORE BLKRQ CONTENTS. 

RANOOM FILL WRITE BUFFER. 

SELECT SEQUENTIAL TRANSPORT. 

CALL WDATAR SUB TO WRITE REV THE NUMBER 

:n k.oc 


jRD c 


F WORDS 


SET IN LOC XFRCNT. FROM AODP SET 
WAODR Ah© ABOVE. 

CHANGE BLK NUM TO RE AO FWD. 

CALL RDATAF SUB TO READ FWO THE NUMBER 
SET IN LOC XFRCNT. INTO ADDR SET IN LO 
RADDR Ah© A80VE. 

CALL DATCKI TO CHECK DATA SPECIFIED BY lOC 
WADOR AGAINST DATA SPECIFIED BY LOC RADDR *2 
READ DATA IS CHECKED IN DESCENDING ORDER, 
k. . SCOPE . 

************** **#***»*#*****##*J»»ft##***»*#*ft***«#****##ft#***#*#***#*«*** 

fc ; ROUTINE NUMBER b ♦ 

T 7 ; ADDRESS OF NEXT ROUTINE ♦ 


XFRC N ’ 


*4: 



TCI I TEST 5 


H03 


HACYii 3C • 1096 ; 31-AUG-77 IS: II PAGE 33 


T CEO . 
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19:08 

. at>0 

im 

8883 


4 bbwZ. 




1S£>2 

ibb4 

i S>6S 

006&56 

306669 

QI6757 

10905. 

172222 

Ibbfc 

006666 

109055 


1 bb*' 

006670 

005067 

172166 

iiba 

006679 

109097 


ibbS 

006676 

016767 

172160 

iS 0 

006709 

109095 


16*'. 

1572 

006706 

109032 


1673 

162 

00671Q 

066767 

172202 

la^B 

006716 

109035 


* O' ■ 




15'9 

16~9 

006720 

109092 


1580 




1561 

006722 

109000 


1582 




i b93 

005729 

30000*"’ 


1589 

006726 



1595 

006730 

ono3'2 


1696 
1 667 

006732 

UUb-59 



1509 

1690 

1691 

1692 

1693 
1599 

1695 

1696 

1697 
1696 
1599 

1700 

1701 
1732 
1703 
1709 

1705 

1706 
17Q7 


006739 

006792 

006799 

305796 

006759 

006756 

006769 

006766 


006770 

006776 


007000 

007002 


250. ; T£$T I T ERA' I DM CQUN T # 

HA ; SCOPE EN T R'- POINT * 

*##**##*#***#*##***#♦♦##########*********»****#*##**«**#**#*#**♦****♦♦♦* 
RANOOM UNIT. RANDOM LENGTH TRANSFERS. PHD WRI T £, REV READ. RANDOM DA’A. 
ALL FWD WRltE TRANSFERS START AT 3L0cK 0 
MOV BFSI2E, XFRCNT 


MOV 

XFRSET 

RNDFIL 

clr 

RNDXFR 

MOV 

RNDRIV 

WDATAF 


DATCKI 

SCOPE 


8LKRQS 

BLKRQS. Bi-KRG 
vRBLKN, B lKRG 


RANDOM FILL WRITE BUFFER. 

TRANSFERS START AT BLOCK 0. 

RANDOM TRANSFER COUNT. 

RESTORE BLKRO CONTENTS. 

RANDOM TRANSPORT. 

CALL WDATAF SUB TO WRITE FWD The * OF WCI 
$£T IN LOG XFRCNT, STARTING FROM ADDP SE‘ 


wyv af nvn * « ainni invi rnun wuun sc. 

; IN LOG WADDR. 

ADD VRBLKN. BLKRG ; C RANGE 3LK NUM TO READ REV. 

RDA'AR ; CALL ROA T AR SUB TO READ REV THE « OF WORE 

; SET IN H 0C XFRCNT, INTO ADDR SET IN LOC 
; r500k AND ABOVE. 

DATCKI ; CALL DATCKI TO CHECK DATA SPECIFIED 8Y ul 

; WADDR AGAINST DATA SPECIFIED BY LOC RhDQ* 
; READ DATA IS CHECKED IN DESCENDING ORDER . 
SCOPE : SCOPE 

■ **##*#*#**#« ####### ft#**######*####*##******#* ***♦*#♦ 

t7; 7 ; ROUTINE NUMBER 7 # 


TLAST ; ADDRESS OF NEXT ROUTINE * 

250. ; TEST ITERATION COUNT * 

IA : SCOPE ENTRY POIN~ ♦ 

tl*ttll>****»*»t»t«t*l***H»*«««****IH<*»»**«*4»« i tt«*lt**#**»***«*t*tf 

RANDOM UNIT. RANDOM LENGTH TRANSFERS. R£v WRITE, FWD READ. RANDOM DATA. 
ALL REV WRltE TRANSFERS START AT 8L06 k 1101 


016757 

109050 

109055 

17219H 

I 72 1 94 

MOV 

XFRSET 

RNDFIL 

BFSI2E, XFRCNT 

; RANDOM FILL WRITE BUFFER. 

012767 

10909? 

ODliOi 

172106 

IA: 

MOV 

RNDXFR 

i 1101. BLKRQS 

; TRANSFERS START AT BLOCK 1101 
; RANDOM TRANSFER COUNT. 

016767 

109095 

109033 

172100 

172079 

MOV 

RNDRIV 
WO A TAR 

BLKRQS. BLKRG 

; RESTORE BLKRG CONTENTS. 

; RANDOM TRANSPORT. 

; CALL WO A TAR SUB TO WRITE REV THE NUMBER OF ^C:R3S 
; SET IN LOC XFRCNT, FROM ADDR SET IN lOC 
; WADDR ANO ABOVE. 

166767 

109039 

172122 

172062 

SUB 

RDATAF 

VRBLKN, BLKRG 

; CHANGE BLK NUM TO READ FWD. i 

; CALL RDATAF SUB TO READ FWD THE NUMBER OF WORDS ! 


SCOPE 


1708 

00 70 09 

028995 

020129 


EMC: 

.ASCII 

1709 

1710 

007010 

007016 

020090 

020103 

020090 

050090 

ATNUMB: 

.ASCII 

1711 

1712 

1713 

007020 

007026 

007039 

020090 

020090 

090 

020090 

091511 

02Q09C 

052116 

APC : 

.ASCII 

17l*» 

DG7035 

090 

020090 

080090 

AICNT : 

. ASC 1 1 


SET IN LOC XFRCNT, INTO ADDR SET IN uOC 
RAODR AND ABOVE, 

CALL DATCKI TO CHECK DATA SPECIFIED BY W CC 
WADDR AGAINST DATA SPECIFIED BY lOC RAODR *i 
READ DATA IS CHECKED IN DESCENDING ORDER . 

SCOPE. 
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0ALNVA 

303232 

:mcn-.-v 

00,3220 

0«*EN a 

000000 


ri'O ** ' m w 

»0P |p = 
& :>psp2= 

^Ibfb 

OC-VQ - 

000000 

oo'Yl ~ 

000040 

OO-yj - 

OOTY3 = 

AA-fl * 

W’M'W 4 >»#■ w 

PO*V4 x 

PP'YS s 

ooo^o 

30 T Yb = 

000300 

y- x 

000340 

j!**" s 

'**■' 

5g3.sS 

p 1 


003152 

»:j54 * 

00574b 

p J$H2 S 

024b4b 

9 ADO® 

Ou i * . 2 

PAc. * 

00000b 

. 11 

001130 

9jx2 s A a 

00000 

PCA^AFa 

104034 

i ?0A T ARs 

104035 

] 9CiA T r 

00Sb54 

?CiA r P 

005724 

R^38A 

004 A0 

90R98A 

004222 

9£v = 

00400G 

R£ VC4T 

005504 

=>140 

00314b 

9^C ,J "tK3 

004 ibb 

»N0*8K= 

104051 

WLs 

1-04055 


; Rf«FwB 

anQtHjns 

9MPR8B 

«*OR9Ka 

RNOfilVr 

9*€)RvA 


DQ427--* 

00427b 


RfORW 

RfCXFA 

RNCXFF 

RMDXFRs 

PNGEN 

Rtfjr = 
of: 


iCNOiS 

00A230 

1CKJS2 

1CNCNS 

00^ 700 

003770 

10H0H7 

003S6C 

000002 

003232 


ma: y i ] 

14-08 


958* 

558 

415* 

529 
542 
11 00 
14Q1 
599 

4^4* 

445* 

408 

452* 

H 5i» 

4SQ« 

449* 

443* 
44/ • 
400 
412* 
* 

932* 
44? 8 
443* 
542* 
48b* 
53'* 
405* 
57b • 
577* 
575 
57b 
1:3b* 

1 1.44 9 
472* 
1329* 
934* 

588 
589* 
593* 

115b* 
1157* 
592 
5b 1 * 

589 
590* 
S8S* 

1074* 

107b* 

584 

1100 * 

58b 

587* 

5bC 

484 * 

1044 


1 040 ) 


9531 


l -AUU-77 14-11 PAGE 42 

)SS REFERENCE TABLE — USER SYMBOLS 


125b 


1309 


1500 


1'32* 

1144 

iiS? 

1280 

l2gi 

144b 

1400 

1403 

1492 

750 

453* 

-*»"% * 

/ 1 i 

791 

1345 

1412 


*ii 




52b 

539 

iObe 

139C 


402 

40b 

44b* 

667 




1^9* 

942 

947# 





94Q* 

942* 

943* 

946* 

947 

949 


'53 

785 






b'4* 

877 

1114# 

1 AS* 

1 1 16* 

1235 

1428 1436 

1024# 

1034 

1114 





1427 

1435 






1500 

1599 

1649 

1701 




1574 

1497* 

14J5* 

1B24 

1675 





1137 

1139 






1145 

1147 

1149 





614 

1330 

1331 

1333 

1431 

1435 


1379* 

1390* 






935 

93b 

938* 

94-4* 




1135* 

1138 






iSbfo 

1 bib 






ibi8 

1160 

1158 

1B43 

ibbb 

1692 




1153* 

1073 

1099 

1135 

1143 

1156 



1143* 

114b 

1148 





1591 

lb4i 






1B70 

ib9b 






1075* 

1078* 

107b 






1073* 

1079 






1101* 

1102 

1104 

1 1 06 




1099* 

1103 

1105 





IbbB 

1043* 

1894 






bi 4 

1335 

1463 

1495 




1040* 

1055 

1 050 * 

106 i * 





tuumin 

m 4 & r\> 

mm* m 




DQ4 

43 3E- 30*2 

USER SYMBOLS 


978 1003 105b 1083 1133 lit! 

1217 1321 


9~1 

981 

10*3 

1098 

4 f DC 

* A W W 

1 i S3 1233 12" 7 * 

1193 

13*9 

1210 

1389 

1295 

1411 

1392 

1*17 

i 5 1 2 

IS** 1590 ISOS 

14*5 

1459 

1*82 

1* 91 

1525 


18*4 

1*52 

1485 

149* 




89~ 

1389 

7Q1 

1372 

70S 

1380 

728* 

5*9 

S91 




i^eot 
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STA'S 

0CN3.4 

567 

S'A'JS* 

1 DmQ2^ 

b68* 

s': msg 

0G"3S 

1193 


004354 

Sob 

STDPOT* 

DOM44P 

1C)MQ2S 

1 S TjL 

V. g 

004* 

STO0T 

DOshsq 

563 

STRTA 

00 1 5 Sb 


STTCV 

SveCtrs 

lOSQ^I 

566* 

SVQ3 

002162 

S49 

SV3S 

002212 

SSI 

SVOSh 

002220 

'42 

SvOSB 

002234 

'39 

SVOSC 

002246 

738* 

SV3SS 

002202 

SS3 

SV5S 

■002342 

399 

TC3A 

001012 

S10* 

TC9AS8 

007643 

1316 

TCBAT 

0010S6 

523* 

TO CM 

001306 

503* 



1360 

TCCMT 

001046 

524* 

TCOT 

001014 

Si 1 • 

TCDTT 

0010S2 

S26* 

TClVL 

001020 

513* 

'CST 

DO 1004 

50'* 

TCSTT 

001050 

525* 

TCv'TR 

001016 

512* 

TC*4C 

001010 

509* 

'C*JCT 

0010S4 

527* 

'EMP 

OCiO'H 

535* 

'ESPWR 

0Q34Q2 

984 

VAST = 

i> * l f 1 f 4 

455* 

'PB 

001024 

515* 

TPS 

301322 

514* 

TOC r 

303003 

456* 

'RC v 

000014 

399* 

TRpy 

□00034 

407* 

-ryC 

002742 

555 

'Y°A 

002746 

994* 

T vpc 

00276b 

895 

T YPO 

003002 

897 

'Yp£ = 

104010 

556* 

TVPES = 

13401 1 

-.57* 

Type 

003016 

90 1 

T YPG 

003026 

910* 

typs 

003040 

556 

t YPSA 

003062 

917 

'■‘VPSB 

003064 

915* 

'0 

006062 

518 

▼ , 
* 

006236 

1471 

'£ 

006376 

1515 

▼ — 

0064S0 

1558 


006522 

1583 

~z 

006574 

1608 




i 


1164* 

1180 

1202 

1211 

1297 

1913* 

1171* 

ii ri 

US'* 




689 

823 

1449 


Sj|^j 661 

'3b * 

744* 

745* 

749* 


741* 

'41* 

781* 

744* 

7S4* 


620* 

1801* 

365 

1168 

1168* 

1307 

1397 

616 

625 

627 

1376* 

1165 

1366 

857 

1374 

1165* 

1378* 

1167 

1167* 

901 

1351 

1356* 

1357 

618 

853 

799 

637 

1164* 

1164 

1200 

1328* 

1399* 


621 * 
861 

1166 

ilbb* 

1298 

1393* 

1296* 

1005* 

1684 

904* 

905 

1307 

1310 



892* 




903 

912 



900* 




902 

904* 

90S 

Sll 

597 

634 

642 

65 1 


908* 


914* 922 

920* 

91 b 921* 

i^O* 

1 5 1 4 * 

1 55 ; « 

1 582 w 
:bC7» 

1632* 


I 


E04 

44 

USER SYMBOLS 


1381 1499 


1539 15S4 




1424* 

i42S* 

1432* 

1436* 





1174* 

1414 

li'S 

1190* 

i i 94 

1331 

1 32" ♦ 

1 3 ^ Ec 

1 3 3 ** | 

1362* 

1363 






| 

149' 








1394 

1396* 








bfe2 685 '09 983 920 103' j 

I 


J 


T C 5 - TC, 
DZTCED.P; 


jnit 

JNlTf* 

UNIT', 

JNTAJ 

jPf 

Uu 


"ST 5 

31-AUG-: 



Li2 

b3 


OOCHOO 
£X 3 1:300 
001*400 
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i£* OO 1 



1172 

8MS 

>tf§. 


1090* 

640* 


1127 

660* 


1224 

7lb 


1006 


u4 r 

00?000 

4 •'8* 





05 

002400 

4-9* 





Jb 

? ■ «% ^ 

003000 

003400 

433* 
4§l * 





•* r Bi_KN~ 

X 1114 

543 * 

1120* 

1121* 

1137 


YRBLKN 

30 - * a 6 

54H« 

1117* 

1118* 

1 119* 

1121 

* 4. 

OOOOQQ 

000X4 

462* 

463* 





V g JE 

X0Q1Q 

000014 

48^8 





; 3 - 

465* 





■* ^ ;r 

000020 

466 * 





VS r 

000024 

467* 





V SC 

xoox 

469* 





* ^ r 

000034 

>•698 





wmODF 

001113 

541 * 

6~3* 

873 

1111* 

i 112* 

k-sAuL = 

000016 

490* 





-pc _ : m 

301102 

538* 

1030* 

1111 



NO* 0 

X7&1C 

1302 

1797* 




«:*h t a = 

00X14 

409* 

623 

1423 

1431 


iOATAFs 

10*4032 

574* 

1549 

1570 

lfcgQ 

1671 

*0= T *^R— 

10*4033 

575* 

1595 

1645 

1697 


*4Df TF 

0O56X 

5-3 

1423* 




HDATR 

Q0S70G 

574 

1431 9 



1438 

WROTR 

005506 

1393* 

1426 

1430 

1434 

WROFRA 

0055H0 

1398* 

1425* 

1429* 

1433* 

1437* 

kRDFRB 

005552 

1401* 

1423* 

1427* 

1431* 

1435* 

MRDFRC 

00S6X 

1399 

1412* 




WRDFRE 

005624 

14218 





WRDFRF 

005620 

1415 

1419* 




MRDFRG 

00S622 

1394* 

1395* 

1397* 

1420* 


WPTM = 

00X12 

408* 





* = 

X0007 

458* 

1469 

1474* 

168^* 

1518* 



1656 

1661* 

1682 


XFRCNT 

001 106 

540* 

672* 

869 

1 106* 

1112 



1241 

1285 

1393 

1521* 

1564* 

1590 

XFRSETr 

104050 

588* 

1107 

1522 

1565 

-FOC” 

004032 

587 

mi* 




s 

010212 

392* 

393 

395 

397 

403 



945 

1275 





122* 1145 


1573 


.598 


16: 


1548 


16^4 


1113* 


126 


1224* 






1556 

1113 

1589* 

1615 


1561* 

1 1 .5 

1614# 

1640 

499* 


1581 

A A 1 6 

1639* 

1665 

501 * 


1586* 

a 1 17 

1664* 

1691 

503* 


1 12S 
1690* 


505* 


A 5 A A * 


5 1 ' 


163 . 

: 10 75 £ 

* w 4, 


w J b 9 
2 2 ^ 

s Wk - 
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- K r,r 3S£* 

+ I 39$* IS?? 1002 192? 1052 10?8 1 ?QA 

v^C T b 392* IShO 

E* ,T OEF 3S3« Sa? 


5?u 5?? 5?8 S?9 590 501 582 

531 53? 53? 


RD' r 


SMC 

1539 

M 

19A9 

1701 



RZ’s 

382* 

15?A 

192A 

1975 




T 5 T A 

382* 

1H09 

1513 

1559 

1581 

1908 

1931 

T S T AA 

382* 

1A88 

1513 

1559 

1581 

1009 

1931 

WZ T!r 

392* 

1SA9 

I5?0 

1920 

16?1 



*4D T P 

392* 

1595 

ISAS 

199? 




. A6S. 

010212 

000 
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m it? in m in ii§ ns 

583 S8H 585 589 59' S9S 59- 


1959 
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